@raibarong ...

Baris ke berapa atau baris yang mana errornya mas?

@raibarong ...

Kalau script tersebut digunakan di Excel 2003, dengan total hanya ada 65.000 baris, mungkin saja masalahnya di jumlah barisnya. Tapi saya pikir sepertinya bukan itu masalahnya (kecuali data yang ditempelkan memang sudah melebih 65.000 baris)...

Karena, pada baris script ini :

With Sheets("REKAP").Range("A" & Rows.Count).End(xlUp).Offset(3)
.PasteSpecial (xlPasteAll)
.PasteSpecial (xlPasteValuesAndNumberFormats)
End With

sepertinya tidak bermasalah? Mungkin bisa dicoba memeriksa kembali apakah baris yang disalin masih dalam mode Copy. Caranya, saat error terjadi, lihat di sheet dimana data disalin apakah masih menunjukkan mode penyalinan (Copy). Biasanya ditunjukkan dengan tanda garis seleksi yang berkedip. Kalau memang itu masalahnya, cukup sisipkan kembali baris untuk menyalin data sebelum script yang bermasalah tadi. Mungkin seperti :

Private Sub SAVE_Click()

Application.ScreenUpdating = False
vFN = Application.GetSaveAsFilename( _
FileFilter:="Portable Document (*.pdf), *.pdf", _
Title:="Simpan dokumen sebagai...", _
InitialFileName:=ThisWorkbook.Path & "\namadokumen.pdf")

If vFN <> False Then
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vFN, _
OpenAfterPublish:=True
End If

Range(Range("A3"), Range("A3000").End(xlUp)).Select
Selection.Copy
With Sheets("REKAP").Range("A" & Rows.Count).End(xlUp).Offset(3)
.PasteSpecial (xlPasteAll)
.PasteSpecial (xlPasteValuesAndNumberFormats)
End With

'+---
Range(Range("A3"), Range("A3000").End(xlUp)).Select
Selection.Copy
'+---

With Sheets("REKAP 22").Range("A" & Rows.Count).End(xlUp).Offset(3)
.PasteSpecial (xlPasteValuesAndNumberFormats)
End With

Range("D1:F1").ClearContents
Range("D2:F2").ClearContents
Range("c12:c1000").ClearContents
Range("A1").Select

End Sub

Saran saya, sebaiknya baris ini :

Range(Range("A3"), Range("A3000").End(xlUp)).Select
Selection.Copy

diubah menjadi:

NamaSheet.Range(Range("A3"), Range("A3000").End(xlUp)).Copy

dimana NamaSheet diganti dengan nama sheet aktualnya (misalkan Sheet1).

Mungkin demikian masalahnya. Kalau bukan itu, berikan saja contohnya biar bisa dipelajari.

Demikian.