[belajar-excel] Copy Paste Data ke Sheet Berbeda pada Range Data [1 Attachment]

[Andrie Amorius bm7...@gmail.com [belajar-excel]]

Dear Master Excel...
Mohon bantuannya, ane punya data disheet1 dan ingin mengcopy pastekannya
ketabel disheet2 (range A1:I25) dikolom terakhir yg kosong dengan
menggunakan:

        With Worksheets("Sheet1")
        AD = .Range("A1:A25").Value
        End With

        With Worksheets("Sheet2")
        ColumnTerakhir = .Cells(1, .Columns.Count).End(xlToLeft).Column
        ColumnTujuan = ColumnTerakhir + 1
        .Range(.Cells(1, ColumnTujuan), .Cells(25, ColumnTujuan)).Value = AD
        End With

Permasalahannya diujung tabel ada kolom untuk jumlah, ketika script
dijalankan data sheet1 malah terpaste keujung kolom disebelah kanan kolom
jumlah bkn dikolom terakhir yg kosong didalam range table...

Mohon kiranya dapat memberikan solusi untuk permasalahan ane, terimakasih
sebelumnya...

File ane lampirkan....



Andrie Amorius, SE. Ak
Task Force PSAK 71
PT. Bank Riau Kepri
Gedung Menara Dang Merdu Bank Riau Kepri
JL. Jend. Sudirman No. 462
Pekanbaru - Riau (28116)

Book1 (Autosaved).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12