Rellenar formulario PDF con datos de Excel

Necesito rellenar un formulario PDF, que ya posee campos editables, con datos de Excel. He encontrado un código del usuario Dante Amor que debería funcionar, pero me copia en todos los campos del PDF el contenido de lo último copiado. No he podido hacerlo funcionar correctamente.

Sub PasarDatosaPdf()
'Por.Dante Amor
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set h2 = Sheets("Hoja2") 'contador
    '
    celdas = Array("A2", "B2", "C2", "D2", "E2", "F2", "G2")
    '
    ruta = "C:\Documents and Settings\DAMOR\Mis documentos\Formatos\Hitss\"
    nomb = "carta"
    ActiveWorkbook.FollowHyperlink ruta & nomb & ".pdf"
    '
    Application.Wait Now + TimeValue("00:00:03")
    For i = LBound(celdas) To UBound(celdas)
        DoEvents        
        SendKeys "{TAB}", True
        DoEvents
        h2.Range(celdas(i)).Copy
        DoEvents
        SendKeys "^v", True
        DoEvents
    Next
    'parecia q la falla está en el For
    Application.ScreenUpdating = True
    MsgBox "Se enviaron los datos al pdf"
End Sub