Hi

Try this one liner, just change the column letter to suit:

Sub DeleteEmptyRows()
Columns("B").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub

Regards,
Per

On 27 Dec., 09:26, gbpg wrote:
I have worksheets with up to 60000 rows in one column I have tried using the
following macro from this site and it does not do anything. Any ideas?:

Sub Sonic()
Dim i As Long
With Application
* * .Calculation = xlCalculationManual
* * .ScreenUpdating = False
* * Lastrow = ActiveSheet.UsedRange.Rows.Count
* * For i = Lastrow To 1 Step -1
* * * * If WorksheetFunction.CountA(Rows(i)) = 0 Then
* * * * * * Rows(i).EntireRow.Delete
* * * * End If
* * Next i
* * * * .Calculation = xlCalculationAutomatic
* * * * .ScreenUpdating = True
* * End With
End Sub