Sub Lastrow()Dim Lastrow As LongLastrow = Sheets("Data")Range("A" & RowsCount)End(xlUp)RowEnd

Sub Lastrow()
Dim Lastrow As Long
Lastrow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
End Sub

-------------------------
Sub CopydataToOthersheet()
Dim Lastrow As Long
   Lastrow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
   Sheets("Data").Range("A" & Lastrow + 1).Value = Sheets("ThemMoi").Range("A3").Value
   Sheets("Data").Range("B" & Lastrow + 1).Value = Sheets("ThemMoi").Range("e3").Value
   Sheets("Data").Range("C" & Lastrow + 1).Value = Sheets("ThemMoi").Range("a6").Value
   Sheets("Data").Range("D" & Lastrow + 1).Value = Sheets("ThemMoi").Range("c6").Value
   Sheets("Data").Range("E" & Lastrow + 1).Value = Sheets("ThemMoi").Range("e6").Value
   End Sub
   -
Sub Clear_data()
Sheets("ThemMoi").Range("A3:C3,A6").ClearContents

End Sub
Sub Luu_Dulieu()
   Call CopydataToOthersheet
   Call Clear_data
   MsgBox "Luu du lieu thanh cong"
   
End Sub

Nhờ thầy hỗ trợ sửa lỗi giúp với ạ!