Stop when No more data exists below

Sub Macro1()

Dim lcount As Long

Range("A1").Select

Do

    If ActiveCell <> 1 Then
        ActiveCell.Rows("1:1").EntireRow.Select
        Selection.Delete Shift:=xlUp
        ActiveCell.Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
 
 lcount = Application.WorksheetFunction.CountA(Range(ActiveCell, Range("A" & Rows.Count)))

Loop Until lcount = 0


End Sub

Perfect! Thanks :_