Formatear columna de rango variable, aunque existan celdas vacías

ormatear columna de rango variable, aunque existan celdas vacías
Desde access me traigo datos que no tienen formato correcto, y/o que tienen celdas vacías en una columna RUT, lo que necesito es que quede 10 dígitos sin símbolos, uso un macro, pero funciona sólo si la celda tiene datos, por lo que deja de correr, además es que esa tabla se actualiza a diario, por lo que el rango es variable, Entonces
Necesito que determine primero hasta donde termina el rango, y que deje el dato con 10 dígitos, allí es donde topo porque no sé cómo hacerlo, ya que los datos parten en la celda Z2 (celda Z1 tiene nombre de la columna) y terminan en la Zxx, para determinar la ultima celda de la columna Z, tendría que saber cual es la ultima fila de la columna A, ya que columna A siempre tiene datos.
Luego correr una modificación de esta subrutina porque tiene la instrucción Do While Not IsEmpty(ActiveCell)

Sub rep_seg() 'por.dam
Range("Z2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
v = ActiveCell
ks = 0
r = v
For i = 1 To Len(v)
n = Val(Mid(v, i, 1))
l = Mid(v, i, 1)
If Not IsNumeric(l) Then
If l <> "k" And l <> "K" Then
r = Replace(r, l, "")
Else
If ks = 0 Then
ks = 1
Else
r = Replace(r, l, "")
End If
End If
End If
Next
ActiveCell.Value = "'" & Right("0000000000" & r, 10)
ActiveCell.Offset(1, 0).Select
Loop
End Sub