Crear una macro para Excel para actualizar inventarios

Os dejo el código. Pero tengo una ultima duda, este código recorre todas las hojas del libro pero yo solo quiero que lo haga por 6. Me imagino que seria modificando lo de negrita por bucle o algo. ¿Alguna idea?

Gracias

Sub CommandButton1_Click()

Application.ScreenUpdating = False

Hoja1.Select
Range("e6").Select

Do While ActiveCell.Value <> ""
dato = ActiveCell.Value

For Each hoja In ThisWorkbook.Worksheets
If hoja.Name <> ThisWorkbook.ActiveSheet.Name Then
Set busca = hoja.Columns(5).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Hoja1.Select
ActiveCell.Offset(0, -4) = busca.Offset(0, -4)
ActiveCell.Offset(0, -3) = busca.Offset(0, -3)
ActiveCell.Offset(0, -2) = busca.Offset(0, -2)
ActiveCell.Offset(0, -1) = busca.Offset(0, -1)
ActiveCell.Offset(0, 1) = busca.Offset(0, 1)
ActiveCell.Offset(0, 2) = busca.Offset(0, 2)
ActiveCell.Offset(0, 3) = busca.Offset(0, 3)
ActiveCell.Offset(0, 4) = busca.Offset(0, 4)
ActiveCell.Offset(0, 5) = busca.Offset(0, 5)
ActiveCell.Offset(0, 6) = busca.Offset(0, 6)
ActiveCell.Offset(0, 7) = busca.Offset(0, 7)
ActiveCell.Offset(0, 8) = busca.Offset(0, 8)
ActiveCell.Offset(0, 9) = busca.Offset(0, 9)
ActiveCell.Offset(0, 10) = busca.Offset(0, 10)

End If
End If
Next
Sheets("global").Select
ActiveCell.Offset(1, 0).Select
Loop
Hoja1.Select
Range("a6").Select
MsgBox "Informe de inventario completado"

Application.ScreenUpdating = True

End Sub