Mọi người chỉ giúp em VBA Copy vùng có chứa dữ liệu thay vì copy hết cả vùng như file không ạh. Code em làm không biết sai ở đâu ạh. Sub dong_cuoi() Dim dong_cuoi As Integer dong_cuoi = Sheets("Clear_VT").Range("m" & Rows.Count).End(xlUp).Row
Sheets("Clear_VT").Range("m9:o" & dong_cuoi).Copy
End Sub https://facebook.com/569100319856001_1263396327093060
Bạn thay chỗ khai báo dong_cuoi bằng: dong_cuoi = Sheets("Clear_VT").Columns("M").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row
là được.
cảm ơn anh Tran Duy Nguyen nhiều ạh.