Excel VBA Deleting Blank Rows

[RajiSingh]

Hi Guys

I am trying to delete blank rows from my worksheet.
The code works but I wanted to start this 5 rows down (This deletes my header)
Could you please help?

Thanks R


Sub d()


Dim rngBlanks As Range
Dim i As Integer
For i = 2 To 3
On Error Resume Next
Set rngBlanks = Columns(i).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rngBlanks Is Nothing Then
rngBlanks.EntireRow.Delete
End If
Next


End Sub

 

[mrmmickle1]

Can't get much more succinct then that! Nice solution Joe4 !

 

[Joe4]

Thanks Matt!