Bạn thêm cái Debug nữa để hiểu tại sao. Nhớ bật cửa sổ immediate (Ctrl+G) để xem
Sub inhangloat()
Dim i As Integer
i = 3
While ThisWorkbook.Sheets("data").Cells(i, 3) <> ""
ThisWorkbook.Sheets("ds").Cells(3, 3) = ThisWorkbook.Sheets("data").Cells(i, 3)
i = i + 1
Debug.Print...