Ordenar SOLAMENTE la columna A

[JoaoM]

Con la grabadora hice esto.
LO hice de 2 formas;

Active la Grabadora

Seleccione los 2 1ªs (A2 y A3); 00000001 00000002 y arrastre hasta la ultima ocupada, si quedan continuos

Y Antes de activar la grabadora

Seleccione los 2 1ªs (A2 y A3); 00000001 00000002
Active la Grabadora y arrastre hasta la ultima ocupada, si quedan continuos

Código:

Sub Macro1()
'
' Macro1 Macro

    Selection.AutoFill Destination:=Range("A2:A5"), Type:=xlFillDefault  'AQUI PUEDE IR HASTA LA A50000, la 12 o la 1234 LA ULTIMA VARIA
    Range("A2:A5").Select
End Sub
Sub Macro2()
'
' Macro2 Macro

    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A5"), Type:=xlFillDefault 'AQUI PUEDE IR HASTA LA A50000, la 12 o la 1234 LA ULTIMA VARIA
    Range("A2:A5").Select
End Sub

pero como arreglar alguna de esta macro para meterla dentro del evento Eliminar?

Evento Eliminar

Código:

Private Sub btnElimi_Click() 'ELIMINAR PRODUCTO
Application.ScreenUpdating = False
    'ActiveSheet.Unprotect "By Jot@"
    Dim fCliente As Integer
    fCliente = nCliente(cmbEdProd.Text)
    
    If fCliente = 0 Then
        MsgBox "Seleccione 1 producto para eliminar", vbInformation + vbOKOnly
        cmbEdProd.SetFocus
        Exit Sub
    End If
    
    If MsgBox("¿Seguro que quiere eliminar el producto; " & cmbEdProd.Text & "?", vbQuestion + vbYesNo) = vbYes Then
        
        Cells(fCliente, 1).Select
        
        ActiveCell.EntireRow.Delete
        
        CargarLista
    cmbEdProd = "": txtcli10 = "": txtcli20 = "": txtcli30 = "": txtcli40 = "": txtcli50 = "": _
    txtcli60 = "": txtcli70 = "": txtcli80 = ""
        
        MsgBox "Producto eliminado", vbInformation + vbOKOnly
        cmbEdProd.SetFocus
        
   End If
    'ActiveSheet.Protect "By Jot@"
    Application.ScreenUpdating = True

End Sub

Lo primordial es que quede arrastrando hasta la ultima ocupada. La ultima puede ser la 50000, la 12 o la 1234 y así quedo con la columna A SIEMMPRE con numeracion continua.
En esta pagina http://office.microsoft.com/es-mx/ex...001154232.aspx hay instrucciones par usar =FILA(A1) pero no se es como hacerlo. Meto =FILA(A1) en A2 ¿y luego en la macro Evento Eliminar?