Tìm và xóa những dòng trắng

[tuan_zakka]

Hi các A/C hiện tại e đang có 1 khó khăn nhờ mấy A/C tìm giải pháp giúp e.
e có đoạn code sau:
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Khong tim thay file hoac Ban chua Chon File. Vui long Kiem tra lai"
GoTo FileAndExit
End If
x = 1
While x <= UBound(FilesToOpen)
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
If x = 1 Then
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1")
Else
lr = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
wb.Sheets(1).UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Range("A" & lr + 1)
End If
wb.Close False
x = x + 1
Wend
đoạn code này gộp nhiều file excel lại với nhau nhưng nếu file excel muốn mở mà có 200( trong đó 100 dòng có dữ liệu 100 dòng còn lại thì có sẵn công thức nhưng k có dữ liệu.
khi e gộp nhiều file lại thì từ file thứ nhất sang file thứ 2 sẽ có 1 khoảng trống khoảng 100 dòng trắng (file 1) rồi mới đến thông tin của file thứ 2.
A/C có cách nào xóa những dòng k có dữ liệu của file 1 đi rồi mới add dữ liệu của file 2 vào được không.
A/C nào có giải pháp giúp e vs.
E cảm ơn trước