Erase Blank Rows

Sub EraseBlankRows()
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To akhir
Cells(n, kol).Select
If Cells(n, kol).Value = "" Then
Selection.EntireRow.Delete
akhir = akhir - 1
End If
Next n
End Sub