Zahlenwerte richtig erkennen ohne Selection

Sub Zahlenwerte_richtig_erkennen()
For Each zelle In Selection
If IsNumeric(zelle.Value) = True And _
zelle.HasFormula = False Then
zelle.Value = zelle.Value * 1
End If
Next zelle
End Sub

was mich stört, ist, dass ich die Zellen vorher markieren muss. Ich würde gerne alle Zellen in
Spalte AG entsprechend korrigieren, bis zur letzten gefüllten Zelle in A.
Kann mir da jemand helfen?
Gruß und danke
Peter