Ever need to delete all empty rows in the used area of excel in lists or spreadsheets regularly. Well here is a small macro that you can paste into the personal maro workbook to do just that automatically!

<pre>Sub DeleteEmptyRows()
Dim RowNum As Long
LastRow = ActiveSheet.UsedRange.Row - 1 + _
Application.ScreenUpdating = False
For RowNum = LastRow To 1 Step -1
If Application.CountA(Rows(RowNum)) = 0 Then _
Next RowNum
End Sub