¿Cómo modificar el rango donde pegar mis búsquedas?

Tengo el siguiente código que encontré en la web y modifique para que me buscara una serie de datos, ya lo hace sin embargo no se como modificar para que me pegue los resultados de búsqueda a partir de la columna (75,2) de la Hoja1 ya que en las columnas anteriores tengo datos que no quiero que se sustituyan.

Sub BuscarEnVariasHojas()
Dim Celda As Range, Rango As Range
Dim CeldaAux As Range, RangoAux As Range
Dim Hoja As Worksheet
Dim Tiempo1 As Long, Tiempo2 As Long
Tiempo1 = VBA.Timer

Application.ScreenUpdating = False

Application.StatusBar = "Búsqueda en progreso... Espere por favor!"

Hoja1.Activate

If Hoja1.Cells(2, 1) = Empty Then
MsgBox "No hay datos para buscar", vbCritical, "ERROR"
Exit Sub
End If
Set Rango = Hoja1.Range(Cells(2, 1), Cells(2, 1).End(xlDown))

For Each Hoja In ActiveWorkbook.Worksheets
If Hoja.Name <> "RESULTADO ESPERADO" Then
Hoja.Activate
If Hoja.Cells(2, 1) = Empty Or Hoja.Cells(2, 2) = Empty Or Hoja.Cells(2, 3) = Empty _
Or Hoja.Cells(2, 4) = Empty Or Hoja.Cells(2, 5) = Empty Then
MsgBox "No hay datos para buscar en la hoja " & Hoja.Name, vbCritical, "ERROR"
Exit Sub
End If
For Each Celda In Rango
If Celda.Offset(0, 1) <> Empty And Celda.Offset(0, 2) <> Empty And Celda.Offset(0, 3) <> Empty _
And Celda. Offset(0, 4) <> Empty And Celda. Offset(0, 5) <> Empty And Celda. Offset(0, 6) <> Empty _
And Celda. Offset(0, 7) <> Empty And Celda. Offset(0, 8) <> Empty And Celda. Offset(0, 9) <> Empty _
And Celda. Offset(0, 10) <> Empty And Celda. Offset(0, 11) <> Empty And Celda. Offset(0, 12) <> Empty _
And Celda. Offset(0, 13) <> Empty And Celda. Offset(0, 14) <> Empty And Celda. Offset(0, 15) <> Empty _
And Celda. Offset(0, 16) <> Empty And Celda. Offset(0, 17) <> Empty And Celda. Offset(0, 18) <> Empty _
And Celda. Offset(0, 19) <> Empty And Celda. Offset(0, 20) <> Empty And Celda. Offset(0, 21) <> Empty _
And Celda. Offset(0, 22) <> Empty And Celda. Offset(0, 23) <> Empty And Celda. Offset(0, 24) <> Empty _
And Celda. Offset(0, 25) <> Empty And Celda. Offset(0, 26) <> Empty And Celda. Offset(0, 27) <> Empty _
And Celda. Offset(0, 28) <> Empty And Celda. Offset(0, 29) <> Empty And Celda. Offset(0, 30) <> Empty _
And Celda. Offset(0, 31) <> Empty And Celda. Offset(0, 32) <> Empty And Celda. Offset(0, 33) <> Empty _
And Celda. Offset(0, 34) <> Empty And Celda. Offset(0, 35) <> Empty And Celda. Offset(0, 36) <> Empty _
And Celda. Offset(0, 37) <> Empty And Celda. Offset(0, 38) <> Empty And Celda. Offset(0, 39) <> Empty _
And Celda. Offset(0, 40) <> Empty And Celda. Offset(0, 41) <> Empty And Celda. Offset(0, 42) <> Empty _
And Celda. Offset(0, 43) <> Empty And Celda. Offset(0, 44) <> Empty And Celda. Offset(0, 45) <> Empty _
And Celda. Offset(0, 46) <> Empty And Celda. Offset(0, 47) <> Empty And Celda. Offset(0, 48) <> Empty _
And Celda. Offset(0, 49) <> Empty And Celda. Offset(0, 50) <> Empty And Celda. Offset(0, 51) <> Empty _
And Celda. Offset(0, 52) <> Empty And Celda. Offset(0, 53) <> Empty And Celda. Offset(0, 54) <> Empty _
And Celda. Offset(0, 55) <> Empty And Celda. Offset(0, 56) <> Empty And Celda. Offset(0, 57) <> Empty _
And Celda.Offset(0, 58) <> Empty Then GoTo FinDeBusqueda
Set RangoAux = Hoja.Range(Cells(2, 1), Cells(2, 1).End(xlDown))
For Each CeldaAux In RangoAux
If Celda = CeldaAux Then
Celda.Offset(0, 1) = CeldaAux.Offset(0, 1)
Celda.Offset(0, 2) = CeldaAux.Offset(0, 2)
Celda.Offset(0, 3) = CeldaAux.Offset(0, 3)
Celda.Offset(0, 4) = CeldaAux.Offset(0, 4)
Celda.Offset(0, 5) = CeldaAux.Offset(0, 5)
Celda.Offset(0, 6) = CeldaAux.Offset(0, 6)
Celda.Offset(0, 7) = CeldaAux.Offset(0, 7)
Celda.Offset(0, 8) = CeldaAux.Offset(0, 8)
Celda.Offset(0, 9) = CeldaAux.Offset(0, 9)
Celda.Offset(0, 10) = CeldaAux.Offset(0, 10)
Celda.Offset(0, 11) = CeldaAux.Offset(0, 11)
Celda.Offset(0, 12) = CeldaAux.Offset(0, 12)
Celda.Offset(0, 13) = CeldaAux.Offset(0, 13)
Celda.Offset(0, 14) = CeldaAux.Offset(0, 14)
Celda.Offset(0, 15) = CeldaAux.Offset(0, 15)
Celda.Offset(0, 16) = CeldaAux.Offset(0, 16)
Celda.Offset(0, 17) = CeldaAux.Offset(0, 17)
Celda.Offset(0, 18) = CeldaAux.Offset(0, 18)
Celda.Offset(0, 19) = CeldaAux.Offset(0, 19)
Celda.Offset(0, 20) = CeldaAux.Offset(0, 20)
Celda.Offset(0, 21) = CeldaAux.Offset(0, 21)
Celda.Offset(0, 22) = CeldaAux.Offset(0, 22)
Celda.Offset(0, 23) = CeldaAux.Offset(0, 23)
Celda.Offset(0, 24) = CeldaAux.Offset(0, 24)
Celda.Offset(0, 25) = CeldaAux.Offset(0, 25)
Celda.Offset(0, 26) = CeldaAux.Offset(0, 26)
Celda.Offset(0, 27) = CeldaAux.Offset(0, 27)
Celda.Offset(0, 28) = CeldaAux.Offset(0, 28)
Celda.Offset(0, 29) = CeldaAux.Offset(0, 29)
Celda.Offset(0, 30) = CeldaAux.Offset(0, 30)
Celda.Offset(0, 31) = CeldaAux.Offset(0, 31)
Celda.Offset(0, 32) = CeldaAux.Offset(0, 32)
Celda.Offset(0, 33) = CeldaAux.Offset(0, 33)
Celda.Offset(0, 34) = CeldaAux.Offset(0, 34)
Celda.Offset(0, 35) = CeldaAux.Offset(0, 35)
Celda.Offset(0, 36) = CeldaAux.Offset(0, 36)
Celda.Offset(0, 37) = CeldaAux.Offset(0, 37)
Celda.Offset(0, 38) = CeldaAux.Offset(0, 17)
Celda.Offset(0, 39) = CeldaAux.Offset(0, 18)
Celda.Offset(0, 40) = CeldaAux.Offset(0, 19)
Celda.Offset(0, 41) = CeldaAux.Offset(0, 20)
Celda.Offset(0, 42) = CeldaAux.Offset(0, 21)
Celda.Offset(0, 43) = CeldaAux.Offset(0, 22)
Celda.Offset(0, 44) = CeldaAux.Offset(0, 23)
Celda.Offset(0, 45) = CeldaAux.Offset(0, 24)
Celda.Offset(0, 46) = CeldaAux.Offset(0, 25)
Celda.Offset(0, 47) = CeldaAux.Offset(0, 26)
Celda.Offset(0, 48) = CeldaAux.Offset(0, 27)
Celda.Offset(0, 49) = CeldaAux.Offset(0, 28)
Celda.Offset(0, 50) = CeldaAux.Offset(0, 29)
Celda.Offset(0, 51) = CeldaAux.Offset(0, 30)
Celda.Offset(0, 52) = CeldaAux.Offset(0, 31)
Celda.Offset(0, 53) = CeldaAux.Offset(0, 32)
Celda.Offset(0, 54) = CeldaAux.Offset(0, 33)
Celda.Offset(0, 55) = CeldaAux.Offset(0, 34)
Celda.Offset(0, 56) = CeldaAux.Offset(0, 35)
Celda.Offset(0, 57) = CeldaAux.Offset(0, 36)
Celda.Offset(0, 58) = CeldaAux.Offset(0, 37)
Celda.Offset(0, 59) = "fila " & CeldaAux.Row & " hoja " & Hoja.Name
GoTo FinDeBusqueda
End If
Next CeldaAux
FinDeBusqueda:
Next Celda
End If
Next Hoja

Hoja1.Activate

Application.StatusBar = False

Application.ScreenUpdating = True

Tiempo2 = VBA.Timer

MsgBox "Tiempo transcurrido: " & Tiempo2 - Tiempo1 & " segundos"

End Sub}

Añade tu respuesta

Haz clic para o