Hello, Using this code here. 

Sub Find()

Application.ScreenUpdating = False

Sheet2.Range("D2:D" & Sheet2.Range("N1").Value) = Replace(Sheet5.Range("B2"), "#", "C2")
Sheet2.Range("D2:D" & Sheet2.Range("N1").Value) = Sheet2.Range("D2:D" & Sheet2.Range("N1").Value).Value
Sheet2.Range("E2:E" & Sheet2.Range("N1").Value) = Replace(Sheet5.Range("B3"), "#", "D2")
Sheet2.Range("E2:E" & Sheet2.Range("N1").Value) = Sheet2.Range("E2:E" & Sheet2.Range("N1").Value).Value
Sheet2.Range("F2:F" & Sheet2.Range("N1").Value) = Replace(Sheet5.Range("B4"), "#", "C2")
Sheet2.Range("F2:F" & Sheet2.Range("N1").Value) = Sheet2.Range("F2:F" & Sheet2.Range("N1").Value).Value
Sheet2.Range("G2:G" & Sheet2.Range("N1").Value) = Replace(Sheet5.Range("B5"), "#", "F2")
Sheet2.Range("G2:G" & Sheet2.Range("N1").Value) = Sheet2.Range("G2:G" & Sheet2.Range("N1").Value).Value


Application.ScreenUpdating = True
MsgBox (Sheet1.Range("C7").Value & " " & "AMA(s) and " & Sheet1.Range("C9").Value & " " & "Addendum(s) have been found")
End Sub

It loops through rows and pastes a formula then repastes as values. Was working when there was maybe 400 lines of data but I added 1600 and now I'm getting the error. Sheet2.Range("N1") is the location of a counta formula to find how many rows of data.

I saw you can get around this error by declaring your variables as long but I don't know what my variables would be here.

Any help?