Better Function to Erase Empty Rows

Sub EraseEmptyRows()

Dim rw, i

For i = 1 To 5
' Here the loop is up to 5 meaning the maximum number of rows with no data would be 5
' Increase this number when necessary

For Each rw In Worksheets(1).Range("A1:A50").Rows
' Sweeps all cells in the range. Change the range when necessary
     If (IsEmpty(rw.Cells(1, 1))) Then rw.Delete
' Erases if the cell is empty
Next rw
' End for rw loop
Next
' End for i loop
End Sub