VBA Delete rows if blank

[rplohocky]

Hello,
I'm looking for a macro that will look at column A and delete all rows that are blank down to row 400 or the last row that has any data in it, specifically column B. I have a template sheet that uses columns A thru L. I fill data into column A and then have various amounts of rows that have data I don't need and want to delete those rows.

Thank you!

 

[Joe4]

Try this:

Sub MyDeleteRows()

    Dim lr As Long
    
'   Find last row with data in column B
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Select blanks cells in column A and delete entire rows
    Range("A1:A" & lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
End Sub

 

[rplohocky]

Joe4, This is perfect! Thank you for the help!

 

[Joe4]

You are welcome.
Glad I was able to help.