Necesito ayuda con macro para buscar en varias hojas

Ralvaradot mira tengo un macro que busca un dato en una hoja pero lo que necesito es que busque el mismo dato pero en las siguientes otras hojas y lo peque en otra así como lo hace este es el macro

Sub prueba()
fila = 4
dato = InputBox("que dato o parte de dato
buscamos??")
If dato = "" Then Exit Sub
Set busca = Sheets("hoja1").Range("b1:b"
&
Sheets("hoja1").Range("b65000").End(xlUp).Row).Find(dato,
LookIn:=xlValues, lookat:=xlPart)
If Not busca Is Nothing Then
ubica = busca.Address
Do
Cells(fila, 2).Value = busca.Value
Cells(fila, 3).Value = busca.Offset(0, 1)
Cells(fila, 4).Value = busca.Offset(0, 2)
Cells(fila, 5).Value = busca.Offset(0, 3)
Cells(fila,6).value = busca.offset(0,4)
Cells (fila,7).value=busca.offset(0,5)
Cells (fila,8).value=busca.offset(0,6)
Cells (fila,9).value=busca.offset(0,7)
Cells (fila,10).value=busca.offset(0,8)
Cells (fila,11).value=busca.offset(0,9)
Cells (fila,12).value=busca.offset(0,10)
Cells (fila,13).value=busca.offset(0,11)
Cells (fila,14).value=busca.offset(0,12)
Cells (fila,15).value=busca.offset(0,13)
Cells (fila,16).value=busca.offset(0,14)
Cells (fila,17).value=busca.offset(0,15)
Cells (fila,18).value=busca.offset(0,16)
Cells (fila,19).value=busca.offset(0,17)
fila = fila + 1
Set busca = Sheets("hoja1").Range("b1:b"
&
Sheets("hoja1").Range("b65000").End(xlUp).Row).FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <>
ubica
End If
End Sub