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
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