VBA delete row if cell is empty

The below code lets you find the last row and look into the range of cell if it is blanks.
However there are instance where the lastrow might be error prone as this doesn’t tell you FOR SURE the last used row in the entire sheet, unless you can be certain that Column A holds the data.

Sub deleteBlank()
Dim Lastrow As Integer

Lastrow = Range("A" & Rows.Count).End(xlUp).Row

Range("B2:B" & Lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Referenced from mrexcel

Advertisements
This entry was posted in vba and tagged , . Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s