BuscarV Macros con varias columnas.

Tengo un archivo con varios procesos productivos. Hay una hoja que es un generador de ordenes y esta las almacena en otro hoja, una base de datos que comienza en la fila 6 (las primeras 5 son títulos y organización), hay otra hoja que llama las ordenes y estas se modifican. Por decir, la orden 0034, que consta de 12 procesos, tiene registrados 3 procesos ok hasta el 20/1/18, sin embargo el 21/1/18 termino 4 procesos más, voy al visor de ordenes, llamo la orden, llega con los 3 procesos ok y modifico los 4 más, quedando con 7 ok, esta info va a la fila 1 de la base de datos (Filas K1:CW1), pero necesito una macro que busque el No. De la orden de la fila 1 (K1), en la base de la fila 6 en adelante (A6:CW1000) (donde comienzan los datos) y cuando encuentre la orden, copie la info de la fila 1 y la reemplace en la fila donde esta la orden, de las columnas L hasta la columna CW. Sin dañar la información de las demás filas, es decir las filas que no tienen la orden 0034.

He estado cacharreando pero el problema es que BuscarV solo trae un valor, no valores de varias columnas. Copio el código que he venido trabajando para que por favor me colaboren.

Gracias

Sub BusquedaVertical()
Dim cont As Long
Dim ultlinea As Long
Dim sueldo As Variant
Dim No As Variant
Dim rango As Variant
ultlinea = Sheets("BASE_1").Range("A" & Rows.Count).End(xlUp).Row
Set rango = Sheets("BASE_1").Range("k6:cw1000")
For cont = 6 To ultlinea
No = Sheets("BASE_1").Cells(cont, 1)
sueldo = Application.VLookup(k1, "K6:CW1000", Range("2:91").Copy, False)
Sheets("BASE_1").Cells(cont, 12) = sueldo
Next cont
MsgBox "Guardar ejecutado exitosamente!", vbInformation, "Guardar"
End Sub