¿Cómo hago para que copie todo lo que encuentra y lo peque en otra página?

"para Dante Amor"

Esta en la macro que estoy usando funciona bien pero no lo lleva todo solo la primera encontrada.

Aquí te dejo el código:

 cont = 0
 Set h = Sheets("PROVISIONES")
    For i = h.Range("C6").End(xlDown).Row To 1 Step -1
        If UCase(h.Cells(i, "C")) = UCase(Label4) Then
            h.Range(h.Cells(i, "A"), h.Cells(i, "A").Offset(0, 33)).Copy
           Worksheets("SOPORTE").Range("A6").PasteSpecial
            cont = cont + 1
        End If
    Next
    MsgBox "Se encontraron " & cont & " registros actualmente."