ActiveCell Based Range Selection

Hi,

I have a list of data and from the ActiveCell I want to select till row 2 and delete the rows. (ActiveCell will be in Column A)
- I have blank rows in between in all columns
- ActiveCell will be Dynamic in each Sheet

Need help to resolve

ActiveCell to Row 2

I have below code

Range(ActiveCell, ActiveCell.End(xlUp)).Select
Do
Loop