Macro para cambiar nombre de variable

Con esto puedes cambiar el número de la variable.

For i = 1 To 5
    Worksheets("Formato").Range("_Var" & i).Value = _
        Application.WorksheetFunction.VLookup(Busca, Rango, Numero, False)
Next

Lo que no me queda claro es que tienes en la variable "Numero", si te refieres también al contador, entonces debe ser así:

For i = 1 To 5
    Worksheets("Formato").Range("_Var" & i).Value = _
        Application.WorksheetFunction.VLookup(Busca, Rango, i, False)
Next

Saludos.Dante Amor
Si es lo que necesitas.

Resulto acertada tu respuesta Amigo, perdona la oportunidad para hacer otra consulta

Se trata de 3 macros "Nuevo", "Editar", "Grabar", tengo 2 Hojas "Formato" y "Data" en la hoja Formato tengo mi plantilla para cargar, editar datos.

Cuando escojo "Nuevo" utilizo "Grabar" para registrar en la ultima fila de mi "Data", cuando busco un registro uso "Editar" pero uso la macro "Grabar" para actualizar el registro en la misma Fila de DATA donde lo encontré. como hago para indicarle a la macro GRABAR que diferencie cuando el registro es "NUEVO" o "EDITADO"

Estoy programando el código asi

Sub Grabar()
Sheets("Data").Select
' Preguntar Si Registro es Nuevo..... si es Si
ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0).Select 'Ubicar ultima Fila

Else

' que hago para indicar que actualice en la fila que encontró el registro a editar
End If
Destination:=Worksheets("Data").Range(Cells(ActiveCell.Row, 1).Address)
For mcelda = 0 To 99
Var = "_Var" & mcelda + 1
Worksheets("Formato").Range(Var).Copy Destination:=Worksheets("Data").Range(Cells(ActiveCell.Row, mcelda + 2).Address)
Next mcelda
End Sub