Bạn thử xem
Sub test()
Dim dulieu As Variant
Dim dongcuoi As Long
With Sheets(1)
dongcuoi = .Range("A" & Rows.Count).End(xlUp).Row
dulieu = .Range("A3:E" & dongcuoi)
.Range("A3:E" & dongcuoi).ClearContents
End With
With Sheets(2)
dongcuoi = .Range("A" & Rows.Count).End(xlUp).Row
.Cells(dongcuoi + 1, 1).Resize(UBound(dulieu, 1), 5).Value = dulieu
End With
End Sub