I keep hitting a snag with this error: PasteSpecial method of Range class failed.

Any help would be greatly appreciated.

Here's the line that was highlighted as causing the problem:

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Here's the full code:
Sub Investment_Plan_Copy_Button()
'
' Investment_Plan_Copy_Button Macro
'


'Error Handler
'Application.EnableCancelKey = xlErrorHandler
'On Error GoTo ErrHandl






'Show status bar that it is starting to take a screenshot
Application.StatusBar = "Investment Plan Copy in progress..."


'Select My Investment Plan Sheet
Sheets("My Investment Plan").Select
    
'Turn off screen updating.
 Application.ScreenUpdating = False
 
 
'Name variable for this workbook
Dim AnalyzerWorkbook As Workbook
Dim InvestmentWorksheet As Worksheet
    
    Set InvestmentWorksheet = ActiveSheet
    Set AnalyzerWorkbook = ThisWorkbook
    
         'Unprotect Investment Plan Sheet temporarily (so I can copy info.)
ActiveSheet.Unprotect Password:="123"

'Copy and move Investment Plan info to new workbook.
   ActiveSheet.Select
   ActiveSheet.Copy
   
   
         'Variables for ScreenshotSheet
 Dim ScreenshotSheet As Worksheet
 Set ScreenshotSheet = ActiveSheet

 
 'Set variables for new screenshot workbook
 Dim ScreenshotWorkbook As Workbook
 Set ScreenshotWorkbook = ActiveWorkbook
   
   
   'Add duplicate copy sheet to later get logo from
   ActiveSheet.Copy After:=Sheets(1)
    
    Dim Copy2Worksheet As Worksheet
    Set Copy2Worksheet = ActiveSheet
    

       
     'Delete All Drawing Objects on ScreenshotSheet
ScreenshotSheet.Activate
ActiveSheet.DrawingObjects.Delete

'Activate Copy2Worksheet and copy banner and logo and paste in ScreenshotSheet
     Copy2Worksheet.Select
     Range("A1:G1").Select
    Selection.Copy
    
    ScreenshotSheet.Activate
    Range("A1").Select
 
 'Paste header and logo into new Screenshot Workbook
    ActiveSheet.Paste
    
 
 
 
 'Disable Display Alerts so that the user doesn't receive a message "Are you sure you want to delete this sheet?"
Application.DisplayAlerts = False

 'Delete Copy2Worksheet
    Copy2Worksheet.Select
    ActiveWindow.SelectedSheets.Delete
    
'Turn back on Display Alerts.
Application.DisplayAlerts = True

 
 
 
 
 'Deselect range in Investment Plan worksheet.
 AnalyzerWorkbook.Activate
 ActiveSheet.Range("B4").Select
 
    
    
     'Reprotect Investment Plan Sheet
ActiveSheet.Protect Password:="123"

 
 
 'Remove formulas and keep values of My Investment Plan Copy
    ScreenshotWorkbook.Activate
    ScreenshotSheet.Activate
      Range("A1:H5000").Copy

    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
        'Delete Calculator graphic
            Range("H2:O12").Select
    Selection.Delete Shift:=xlToLeft
    
    
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveSheet.Paste
    
     Application.CutCopyMode = False

    

 Application.StatusBar = "Investment Plan Copy Successfully Completed"
 
 'Show Completion Message.
MsgBox "Your Investment Plan Copy has succesfully completed."

Application.StatusBar = ""

  
'
End Sub