Excel - recorrer las hojas que he creado

Sub Contar_Hojas()

 'Dim Hojas As Integer

 'Dim Contar As Integer

 Dim ulfila As Long ' extrae el ultimo dato de la hoja bulldozer

 Dim infor As String ' guarda la informacion de la ultima fila en la hoja bulldozer

 Dim contfila As Integer ' cuenta las filas de la hoja bulldozer

 Dim equipo As String ' condicion para que extraiga los datos de la hoja bulldozer

 Dim hj As Long ' captura la ultima fila que tiene datos en la hoja de resumen

 ulfila = Sheets("Bulldozer").Range("D" & Rows.Count).End(xlUp).Row

 'Hojas = Sheets.Count

 'For Contar = 4 To Hojas

    For contfila = 6 To ulfila ' cuenta las filas de la hoja bulldozer hasta la ultima que tenga algun dato

        infor = Sheets("Bulldozer").Cells(contfila, 4) ' extrae la informacion de la ultima fila en la hoja bulldozer

    Next contfila

    If equipo = equipo Then ' condicion que debe cumplir para traer el dato de la ultima fila en la hoja bulldozer

        hj = Sheets("Resumen_Observaciones").Range("D" & Rows.Count).End(xlUp).Row ' cuenta las filas en la hoja 1 donde pegara el dato extraido de la hoja bulldozer

        Sheets("Resumen_Observaciones").Cells(hj + 1, 4) = infor ' pega la informacion extraida de la hoja bulldozer en la fila y columna en blanco

    End If

 'Next Contar

End Sub

Sub Macro

    Dim Hoja As Object

    For Each Hoja In ActiveSheet.Parent.Sheets

        IF Hoja.Name <> "Resumen_Observaciones" Then

            Select(Hoja.Name).Select

            ' ---&--- Aqui Copias los Datos

            Select("Resumen_Observaciones").Select

            ' ---&---- Aqui los pegas

        End If

    Next

End Sub

Sub Macro

    Dim Hoja As Object, Ult_Fila as Long, Informac As String, Ult_Obse as Long

    Ult.Obse = Sheets("Resumen_Observaciones").Range("D" & Rows.Count).End(xlUp).Row

    For Each Hoja In ActiveSheet.Parent.Sheets

        IF Hoja.Name <> "Resumen_Observaciones" Then

            With Select(Hoja.Name)

               Ult_Fila = .Range("D" & Rows.Count).End(xlUp).Row

               Informac = .Cells(Ult_Fila, 4)

            End With

            With Select("Resumen_Observaciones")

                Ult_Obse = Ult_Obse + 1

                .Cells(Ult_Obse, 4) = informac

            End With

        End If

    Next

End Sub

.Range("D" & Rows.Count).End(xlUp).Row