Macro para copiar una celda de hoja 1 según el valor de otra celda de la hoja 1 e insertar la celda copiada en hoja 2

H o l a:

Te anexo la macro

Sub CopiarCelda()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    Select Case UCase(h1.[C3])
        Case "FREDI"
            destino = "O112"
        Case "ZOILA"
            destino = "P112"
    End Select
    h1.[P3].Copy h2.Range(destino)
End Sub

He modificado los nombres de las hojas pero me sale error la línea que hay después del end select, " h1.[P3].Copy h2.Range(destino)", te muestro lo puesto.

Sub PRUEBASALDOS()
'
' PRUEBASALDOS Macro
'

Set h1 = Sheets("compra articulos")
Set h2 = Sheets("RESUMENES")
Select Case UCase(h1.[C3])
Case "ZOILA"
destino = "O112"
Case "FREDI"
destino = "P112"
End Select
h1.[P3].Copy h2.Range(destino)
End Sub

¿Y qué mensaje de error te aparece?

¿Tienes la celda P3 combinada?

¿O la celda destino está combinada?

¿Tienes la hoja 2 protegida?

la celda p3 corresponde a una autosuma de otra columna, y quisiera NO PEGAR, sino INSERTAR CELDA COPIADA, de forma que cada vez que cope en la celda se baje para abajo.

Gracias anticipadas por las molestias.

¿No me dijiste qué error te aparece?

En tu pregunta original no mencionaste que quieres insertar.

Prueba la macro tal y como está y dime si te funciona.

H o l a:

Te anexo la macro actualizada

Sub CopiarCelda()
'Por.Dante Amor
    Set h1 = Sheets("compra articulos")
    Set h2 = Sheets("RESUMENES")
    Select Case UCase(h1.[C3])
        Case "FREDI"
            destino = "O112"
        Case "ZOILA"
            destino = "P112"
    End Select
    h1.[P3].Copy
    h2.Range(destino).Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

¡Gracias! Muchas gracias por tu ayuda, a base de prueba y error lo conseguí.

Un abrazo.

Alfredo