Macro BuscarV devuelve varias columnas

buscarv(A2;tablabase;1;0)

Tu primer fórmula tiene la columna 1, la columna 1 regresa el mismo valor que estás buscando, ¿realmente quieres eso?

Puedes poner la siguiente fórmula en B2 y copiar hacia la derecha. En automático incrementa el número de columna (1, 2, 3 ...)

=BUSCARV($A2;tablabase;COLUMNAS($B$1:B1);0)

Nota: si no quieres la columna 1 como resultado, utiliza la siguiente y copia hacia la derecha.

=BUSCARV($A2;tablabase;COLUMNAS($B$1:C1);0)

Si quieres el código:

Sub macro1()
  With Range("B2:U" & Range("A" & Rows.Count).End(3).Row)
    .Formula = "=VLOOKUP($A2,tablabase,COLUMNS($B$1:B1),0)"
    .Value = .Value
  End With
End Sub

Nota: si no quieres la columna 1 como resultado:

Sub macro1()
  With Range("B2:T" & Range("A" & Rows.Count).End(3).Row)
    .Formula = "=VLOOKUP($A2,tablabase,COLUMNS($B$1:C1),0)"
    .Value = .Value
  End With
End Sub

Hola Dante
Probé con la fórmula y bueno me sale el siguiente error: me da el dato final y al arrastras no me da los siguientes datos.

¿Algo hice mal?