データの最後の行/列の後/にデータをコピー/ペーストします。古いワークブックから新しいワークブックへ

Question

毎週マスターファイルを更新しています。その結果、ソースファイルのデータをコピーしてマスターシートに貼り付けようとしています。今、前週のデータの後に列と行にデータを貼り付ける必要があります。たとえば、最後の週のデータが終了すると（「H70：M70」）、新しい貼り付けデータが必要になります（「H71：M71」）。また、新しい貼り付けデータには多くの行が含まれているため、今週データの最後の行/列（「H230：M230」）の後に次週のデータを貼り付ける必要があります。助けてください。

Option Explicit 
Sub Copydata() 
Dim myWB As Workbook 
Dim thisWB As Workbook 
Dim thisWS As Worksheet 

Application.ScreenUpdating = False  

Set myWB = Workbooks.Open("C:\Users\jjordan\Desktop\test.xlsx") 

myWB.Sheets("Sheet1").Range("A8:F17").Copy 

Set thisWB = ThisWorkbook 
Set thisWS = thisWB.Sheets("Test data") 

thisWB.Activate 
thisWS.Range("H71:M71").PasteSpecial _ 
    Paste:=xlPasteValues, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False 

With Application 
    .CutCopyMode = False 
    .ScreenUpdating = True 
End With 

myWB.Close 

End Subの

Answer 1

ジェームズ、あなたはVBAでEnd()に精通していますか？

lastRow = ActiveSheet.Cells(Rows.Count,1).End(xlUp).Row 

これは、データを含むセルを見つけるまで上がると、対応する行を返し、その後、ワークシートの列1の最後の可能なセルに移動します。

End()のその他の可能な引数は、xlDown、xlToLeft、およびxlToRightです。最後の/最初の列と行を見つけるために使用できます。