Excel 2010 Paste Doesn't work twice

[MrsRobinson]

I have a simple macro to copy/paste rows into a worksheet. The user clicks a button to add additional rows. If I click it the first time, it works. If I click it the second time, I get this message: "Rutntime 1004: Unable to get the pastespecial quality of the worksheet class". Any help would be much appreciated...thanks!

Sub CopyBlock()

    Sheets("Data").Select
    Range("ToCopy").Select
    Selection.Copy
    Sheets("New").Select
    
    With ActiveSheet
    .Unprotect

    Sheets("New").Select
        Cells.Find(What:="EOF", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial .PasteSpecial - 4122
        
    ActiveCell.Offset(1, 0).Select

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
End Sub

[scott.s.fower]

why would you want to do that?, the pastespecial pastes the copied cells, not just the values, even if you are only pasting the values. it's not as if they become variables that can be calculated. it looks like you want to paste the value then the value - 4122

for that you would have to do something different

is ToCopy a single cell or a range of cells?

[scott.s.fower]

for a cell named ToCopy:

Sub ToCopy()
Dim c As Double
c = Range("ToCopy").Value
a = c + c - 4122
With Sheets("New")
zstart = .Cells.Find(What:="EOF", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address

.Range(zstart).Offset(-1).Value = a

End With

End Sub

[MrsRobinson]

ToCopy is a range of cells.