Code help need

[Bobmn4]

I am trying to get my copied Data to paste in the very next box but the DEBUG stops on the following any advise to get it to drop down to the next blank box I cant set a specific box because the information being copy and pasted varies. this code literally worked for weeks and just stopped today

Range("A2:J1003").Select
Selection.Copy
Sheets("EOC").Select
Range("A1").Select

Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste

 

[Bobmn4]

If not try

Sub Bobmn()
   Dim NxtRw As Long
  
   NxtRw = Sheets("EOC").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
   With ActiveSheet
      .Range("A1:J1").AutoFilter 10, "=*ac-**", xlOr, "=*Clinical Screening for**"
      .AutoFilter.Range.Offset(1).Copy Sheets("EOC").Range("A" & NxtRw)
      .AutoFilterMode = False
   End With
   With Sheets("EOC")
      With .Range("A" & NxtRw, .Range("A" & Rows.Count).End(xlUp)).Resize(, 10).Interior
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
         .Color = 5287936
         .TintAndShade = 0
         .PatternTintAndShade = 0
      End With
   End With
End Sub

Ironically the old code that stopped working started working again perfectly so I just went back to the old version that stopped and its working perfect with nothing done to it

 

[Fluff]

Glad it's sorted & thanks for the feedback