محتاج ارحل البيانات

[القبطان محمد]

محتاج ارحل البيانات من فاتورة المبيعات الي سجل الفواتير بدون ترحيل الصفوف الفارغة

الكود اللي انا كتبته محتاج تعديل 

Sub mohamedsamir()
Sheets(2).Activate
Dim m As Integer
m = [b100].End(xlUp).Row
Range("b10:m28" & m).Copy
Sheets(4).Activate
Range("a" & [a900000].End(xlUp).Row + 18).PasteSpecial xlPasteValues
Sheets(2).Activate
Range("f10:f29" & m).ClearContents
Range("h10:h29" & m).ClearContents
Range("j10:j29" & m).ClearContents
Range("g7").ClearContents
Range("g5").Value = Range("g5").Value + 1
End Sub