skip copy empty rows from sheet to another

[abdelfattah]

hi
i try ignoring empty rows when i copy the last ten rows from sheet1 to sheet2 but it doesn't success
any idea to do that

Sub CopyLines()

    Dim LastRow, LastRow1 As Long

LastRow = Sheets("Sheet1").Cells(Rows.Count, "b").End(xlUp).Row

            Sheets("Sheet1").SpecialCells(xlCellTypeBlanks).Delete xlUp

     Sheets("Sheet1").Range("A" & LastRow - 9 & ":B" & LastRow).Copy Sheets("Sheet2").Range("h11")

End Sub

thanks

 

[Fluff]

How about

Sub CopyLines()
Dim LastRow As Long
With Sheets("Sheet1")
   .Range("B:B").SpecialCells(xlBlanks).EntireRow.Delete
   LastRow = .Cells(Rows.Count, "b").End(xlUp).Row
   .Range("A" & LastRow - 9 & ":B" & LastRow).Copy Sheets("Sheet2").Range("h11")
End With
End Sub

 

[abdelfattah]

thanks fluff what if stay blank row in sheet1 and ignore it in sheet2 after copy

 

[Fluff]

If you want to copy the last 10 non blank cells, then you will need to loop up from the bottom of col B to find the right row & then copy

 

[abdelfattah]

thanks fluff for your help

 

[Fluff]

You're welcome & thanks for the feedback.