Dante Amor respondió:
Te anexo la macro, realicé pruebas con un PDF editable que yo tengo. Sub PasarDatosaPdf() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set h2 = Sheets("Hoja2") 'contador ' celdas = Array("A2", "B2", "C2", "D2",...