Xin giúp em viiết code thực hiện sao chép dữ liệu sang sheet khác

[son0nline]

em muốn làm 1 file excell có macro làm
file có 2 sheet , 1 là seles và 1 là data
copy du lieu từ ô b5 (giá trị là ngày tháng) và C5 (gia trị là int ) từ sheets seles
sang sheets cột A và B của sheet data mỗi lần copy là 1 dòng
kiểu là paste nối xuống dưới dữ liệu cũ ấy
Em xin trân thành cảm ơn.
Em có là thử nhưng nó không chạy đây là code em viết"

Sub thu()
Dim c, h As Integer
Dim a
c = 1
h = 2
 
Sheets("sales").Select
Range("B5:C5").Select
Application.CutCopyMode = False
Selection.Copy
For h = 3 To 6500
Sheets("data").Select
a = Cells(h, c).Value
If a = Null Then
 
Sheets("data").Cells(c, 1).Select
 
ActiveSheet.Paste
GoTo xong
End If
'h = h + 1
Next h
xong:
MsgBox "xong "
End Sub