Slow VBA Code for simple Loop and add pasted values Any Way to Speed Up

Range("FP_Clear_Destination").Clear
     
    For N = 1 To Range("Max_Record_Number")
    Range("Current_Record_Number") = N
    
    Calculate

    Range("FP_Source_1").Copy
    Range([FP_Destination_1]).PasteSpecial xlPasteFormats
    Range([FP_Destination_1]).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
  
    Application.CutCopyMode = False

Next N

End Sub