Slet tomme rækker i markeret område

Jeg vil gerne oprette en makro som sletter tomme rækker i det område af en kolonne som jeg har markeret.

Når jeg indspiller makroen får jeg denne kode.

Sub slet_markerede_raekker()
'
' slet_markerede_raekker Makro
'
' Genvejstast: Ctrl+Skift+M
'
    ActiveCell.Range("A1:A14").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    ActiveCell.Offset(-2, 0).Range("A1").Select
End Sub

Problemet er at der markeres det samme område hver gang - da området er forskelligt fra gang til gang - så skal det altså kun virke på det markerede område.