Run time error 1004 - Paste special method of range class failed

[Diogenes]

Hi all,

I have quite a bizarre error occurring with the code below - when the button is pressed to run this code I get the Run time error 1004 - Paste special method of range class failed. However if I step through the code no error occurs.

The error is occurring at the "paste special" stage of the code.

Could anyone please help explain why it seems to appear when running but not when stepped through and help me to get rid of the error when the button is pressed?

Thanks in advance,

Sub Remove_duplicates()'
' Remove_duplicates Macro
    Sheets("Working").Visible = True
    Application.GoTo Reference:="All_tbs"
    Selection.Copy
    Range("F4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$F$4:$G$110145").Removeduplicates Columns:=Array(1, 2), _
        Header:=xlNo
  
  Application.GoTo Reference:="new_tb_codes"
    Selection.Copy
    Sheets("Input").Select
    ActiveSheet.Unprotect
    Range("B26").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Protect
   Sheets("Working").Visible = False
        
End Sub

 

[Diogenes]

I tested it a few times and it seems to be working fine!

Thanks so much!

 

[MARK858]

Your welcome (just a bit more efficient way of writing it below).

With Sheets("Input")
    .Unprotect
    .Range("B26").Resize(Range("new_tb_codes").Rows.Count, Range("new_tb_codes").Columns.Count).Value = Range("new_tb_codes").Value
    .Protect
End With