Excel: Copiar y pegar celdas con condición

[Hola

Sub copiar()
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    u = h2.Range("C" & Rows.Count).End(xlUp).Row + 1
    h1.Range("A5:E5").Copy
    h2.Range("C" & u).PasteSpecial xlAll
    '
    Application.CutCopyMode = False
    MsgBox "Copiado"
End Sub

Valora la respuesta para finalizar

Amigo si me puede colaborar por favor lo que quiero es por ejemplo copiar los valores resultantes de la hoja 1 y cada vez que yo presione el botón guardar y copie esos valores marcados en la Hoja 2 y cada vez que presione ese botón toda la tabla de la hoja 1 quede en blanco para digitar otra factura.

Que columnas son no lo veo

HOJA 1

CELDAS A COPIAR: B13 HASTA LA H13

HOJA 2

CELDAS A PEGAR: A5 HASTA G5

Y luego que haga esa opción lo de la hoja 1 quede en blanco para insertar otra factura.

Prueba con esto

Sub copiar()
'[Adriel Ortiz
'
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    h1.Range("B13:H13").Copy
    '
    i = 5
    Do While h2.Cells(i, 1) <> ""
        i = i + 1
    Loop
    '
    h2.Range("A" & i).PasteSpecial xlAll
    h1.Range("B13:H13").ClearContents
    '
    Application.CutCopyMode = False
    MsgBox "Datos Copiados"
End Sub

 h2.Range("A" & i).PasteSpecial xlAll

amigo me muestra un error en esta linea, no sabes el porque? emite error '1004'

¿Tienes celdas combinadas?

si pero no involucradas dentro de la macro tengo una arriba donde va el titulo de la tabla

Envíame tu archivo [email protected]

ya

No me llegó tu archivo

Lo tengo

si amigo revisa se llama archivo excel