Macro Excel - Tìm dòng dữ liệu cuối cùng và di chuyển xuống một dòng...

Tôi là người mới học VBA và không có kinh nghiệm hay bằng cấp lập trình nào. Tôi cần giúp đỡ để tìm dòng dữ liệu cuối cùng và di chuyển xuống một dòng để sao chép dữ liệu từ một bảng tính khác. Mọi cách tôi đã thử đều không hiệu quả. Đây là macro của tôi:

Sub Activity_Import()

'
Macro nhập hoạt động
'Mở công cụ theo dõi cá nhân cho một kế hoạch cụ thể và chọn phạm vi văn bản từ A1 đến O1400'

ChDir "T:\stats"
Workbooks.Open Filename:="T:\Stats\Individual Tracker Ed 2014.xlsm"
Phạm vi ("A6:O1400"). Chọn

'Phạm vi cần sao chép được chọn trong bảng tính Lập kế hoạch theo dõi cá nhân'.

Application.DisplayAlerts = False
Lựa chọn.Sao chép

Chuyển sang bảng tính "Individual Tracker for Head Office", đặt con trỏ vào ô A6.
và thực hiện lệnh Dán Đặc biệt rồi lưu sổ làm việc của Trụ sở chính.

Windows("Individual Tracker Head Office.xlsm").Activate
Sheets("Waterloo Master Activ").Select
Vùng ("A6"). Chọn
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Vùng ("A6"). Chọn
ActiveWorkbook.Save
Windows("Individual Tracker Ed 2014.xlsm").Activate
ActiveWorkbook.Close
Sheets("Waterloo Master Activ").Select

Hàng cuối = Ô.Tìm(What:="*", Sau:=[A6], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

MsgBox "Kết thúc Macro"
End Sub

Có ai giúp được không? Cảm ơn.

Trả lời:

CHÀO,

Sổ làm việc nguồn (wb1) đã đóng và sổ làm việc đích (wb2) đang mở.

Hãy thử cách này...

(Sao chép trước)

Sub qqaazz()
Dim wb2 As Workbook '<< sổ làm việc mục tiêu
Đặt wb2 = ThisWorkbook 'mở'
Dim wb1 As Workbook ' << source wb
Set wb1 = Workbooks.Open("T:\Stats\Individual Tracker Ed\2014.xlsm")
Đặt ws1 = wb1.Sheets("Cơ sở dữ liệu hoạt động")
ws1.Range("A6").CurrentRegion.Copy
LRow = wb2.Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
wb2.Worksheets(1).Range("A" & LRow + 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
wb1.Close False
wb2.Save
End Sub