空白になるまでセルの範囲をコピーし、次のブランクの別のワークシートにコピーします。

Question

最初の投稿。

今日7時間を探した後、私はこの問題の治療法を見つけることができないようです。私は同じヘッダーを持つ2つのワークシートを持っています。

8個のヘッダーとデータを持つ「手動入力」は時々変更されます。私は、ヘッダーの下のすべての塗りつぶされたセルを収集し、 "自動エントリー"の唯一の異なる9つのヘッダーを持つ "自動エントリー"の次の開いた行であるB列に投稿します。

問題は、どのように書き込んだり記録しても、エラーが発生します。時にはオブジェクトについて、それ以外の時間には、領域を把握することはできません。私はこれをどのように修正するのか分かりません。私のコードをheres。毎回変更されるので、あなたが望むコードの変更に基づいてエラーを出すことができます。

Sub EE() ' ' EE Macro ' 

' 
    Sheets("Manual Entries").Select 
    ActiveCell.Offset(-4, -2).Range("A1").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Enter DatA Here").Select 
    ActiveCell.Offset(-11, 0).Range("A1").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(1, 0).Range("A1").Select 
    ActiveSheet.Paste 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    ActiveCell.Offset(5, 10).Range("A1").Select 
    ActiveWindow.SmallScroll Down:=-9 End Sub 

Answer 1

私は、次の（未テスト）コードは、おそらくあなたが何をしたいんだと思う：

Option Explicit 
Sub EE() 
    Dim wsME As Worksheet 
    Dim wsData As Worksheet 
    Set wsME = Sheets("Manual Entries") 
    Set wsData = Sheets("Automatic Entries") 
    wsME.Range("A2:H" & wsME.Range("A" & wsME.Rows.Count).End(xlUp).Row).Copy _ 
     Destination:=wsData.Range("B" & (wsData.Range("B" & wsData.Rows.Count).End(xlUp).Row + 1)) 
End Sub