With ActiveSheet
On Error Resume Next
.Range("C5:C65535").SpecialCells
(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End With

Try that...

HTH
"Nigel Bennett" wrote:

THis Code Deletes all the blank rows the workbook it
starts at row 1

With ActiveSheet
On Error Resume Next
.Columns("C").SpecialCells
(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End With

How can I set it to start at another row for example row 5