Excel VBA: Remove Empty rows

Remove active cell empty rows
------------------------------------
Sub RemoveEmptyRows()
    Dim R As Range
    Set R = Application.ActiveCell
   
    Columns(R.Column).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub