To remove row base on 1st cell ranges that is blank

To remove row base on 1st cell ranges that is blank

Sub RemoveEmptyRows()
On Error Resume Next
    Range("G1:G100").Select
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub