Sustituye tu macro por la siguiente:
Sub transferirDatosOtraHoja()
'Act Por Dante Amor
Application.ScreenUpdating = False
Application.StatusBar = False
'
Set h1 = Sheets("01-11")
Set h2 = Sheets("Auxiliar")
Set h3 = Sheets("Resumen")
'
h2.Rows("2:" & Rows.Count).ClearContents
h3.Rows("2:" & Rows.Count).ClearContents
fila_aux = 2
fila_res = 2
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
ant = h1.Cells(4, "A").Value
ini = 4
For i = 4 To u1
Application.StatusBar = "Transfiriendo registro : " & i & " de : " & u1
'
'Transferir a la hoja Auxiliar
'
If h1.Cells(i, 2) Like "*" & "00:00" & "*" Then
h2.Cells(fila_aux, 1) = h1.Cells(i, 1)
h2.Cells(fila_aux, 2) = h1.Cells(i, 2)
h2.Cells(fila_aux, 3) = h1.Cells(i, 3)
h2.Cells(fila_aux, 4) = h1.Cells(i, 4)
h2.Cells(fila_aux, 5) = h1.Cells(i, 5)
h2.Cells(fila_aux, 6) = h1.Cells(i, 11)
h2.Cells(fila_aux, 7) = h1.Cells(i, 12)
fila_aux = fila_aux + 1
End If
'
'Transferir a la hoja Resumen
'
If ant <> h1.Cells(i, "A").Value Then
wpro = WorksheetFunction.Average(h1.Range("C" & ini & ":c" & fin))
wmax = WorksheetFunction.Max(h1.Range("C" & ini & ":C" & fin))
wmin = WorksheetFunction.Min(h1.Range("C" & ini & ":C" & fin))
wprv = WorksheetFunction.Average(h1.Range("K" & ini & ":K" & fin))
wmav = WorksheetFunction.Max(h1.Range("K" & ini & ":K" & fin))
h3.Cells(fila_res, "A").Value = ant
h3.Cells(fila_res, "B").Value = wpro
h3.Cells(fila_res, "C").Value = wmax
h3.Cells(fila_res, "D").Value = wmin
h3.Cells(fila_res, "E").Value = wprv
h3.Cells(fila_res, "F").Value = wmav
ini = i
fila_res = fila_res + 1
End If
fin = i
ant = h1.Cells(i, "A").Value
Next
'
With h2.Range("B6:G" & h2.Range("B" & Rows.Count).End(xlUp).Row).Font
.Name = "Arial"
.Size = 9
.Italic = True
End With
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Proceso terminado", vbInformation, "Resultado"
End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
'.[Avísame cualquier duda