Macro to delete specific rows with black cells

[Apple08]

Hi All

I like to delete the rows for the range row 28 to row 45 if cells in column B are blank. Please could how can I write this macro? Thanks.

 

[maabadi]

Try this:

Sub DeleteBlankRows()
For i = 45 To 28 Step -1
If Range("B" & i).Value = "" Then
Range("B" & i).EntireRow.Delete
End If
Next i
End Sub

 

[MARK858]

If the cells are truly blank/empty then maybe...

Sub Delblank()
On Error Resume Next
Range("B28:B45").SpecialCells(4).EntireRow.Delete
End Sub

 

[Apple08]

Thank you so much, both of the macros work but the speed of the latter one is quicker. Many thanks both!

 

[maabadi]

You're Welcome & Thanks for feedback.
AND you should Mark The Post give to You Best answer (here Post #3) Not Yours.

 

[Apple08]

Thanks Maabadi, I will remember next time