In a macro, I am selecting a Column and then doing a Goto Special
Blanks.

I need to delete that and all following rows in the same macro.

So far I have;
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Activate

How can I get what row the Active cell is so I can do this;
Rows("???:10000").Select ??? = the Active Row
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

Many Thanks in advaance!