Code-er mới vọc vạch ! em viết như này ko biết sai ở đâu mà nó báo lỗi Runtime 1004: Application defined or Object defined error.

Sub LastRowInOneColumn()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
End Sub
Sub hangct()
Dim i, j As Integer
For i = 3 To 1000
If Sheet1.Cells(i, 6) = "" Then
Worksheets("Ton").Range(Cells(LastRow + 1, 4)) = Worksheets("Nhap").Range(Cells(i, 3), Cells(i, 5))
Else
End If
Next
End Sub