將一系列單元格複製到空白處，然後複製到下一個空白處的另一個工作表中，可用於任何工作表

Question

第一篇文章。

今天找了7個小時後，我似乎找不到解決這個問題的方法。我有兩個工作表，具有相同的標題。

具有8個標題和數據的「手動條目」會隨時間變化。我想讓宏收集標題下面的所有填充單元格，並將其發佈到B列中，該列是具有9個標題的下一個「自動條目」行，第一個唯一不同於「手動條目」。

問題是，無論我如何編寫或記錄，我收到一個錯誤。有時它是關於物體的，有時候它不能確定這個區域。我不知道如何解決這個問題。繼承人我的代碼。我可以根據您想要更改的代碼給出錯誤，因爲它每次都會更改。

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