Sebenarnya tinggal cari baris terakhir dikurangi data baris sampai total kalau gak salah ada 11 baris, jadi saya coba pakai script ini untuk yang tarikA1()
Sub tarikA1()
Dim myWbData As Workbook, myData As Worksheet
Dim myRekap As Worksheet, i As Integer
Set myWbData = Workbooks.Open("E:\BE-ORG\Tes Copy\laporan1.xlsx")
Set myData = myWbData.Sheets("A.1_Update")
Set myRekap = ThisWorkbook.Sheets("A.1_Update")
i = myData.Cells(myData.Rows.Count, "C").End(xlUp).Row - 11
myData.Range("C17:T" & i).Copy
myRekap.Range("C17:T" & i).PasteSpecial (xlPasteAll)
Application.DisplayAlerts = False
'Tutup Workbook Laporan1
myWbData.Close
End Sub
Dan untuk tarikA2
Sub tarikA2()
Dim myWbData As Workbook, myData As Worksheet
Dim myRekap As Worksheet, i As Integer
Set myWbData = Workbooks.Open("E:\BE-ORG\Tes Copy\laporan1.xlsx")
Set myData = myWbData.Sheets("A.2")
Set myRekap = ThisWorkbook.Sheets("A.2")
i = myData.Cells(myData.Rows.Count, "C").End(xlUp).Row - 12
myData.Range("D17:F" & i).Copy
myRekap.Range("D17:F" & i).PasteSpecial (xlPasteAll)
myData.Range("M17:R" & i).Copy
myRekap.Range("M17:R" & i).PasteSpecial (xlPasteAll)
Application.DisplayAlerts = False
'Tutup Workbook Laporan1
myWbData.Close
End Sub
Silahkan dicoba saja :D