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

 

[Fluff]

Hi & welcome to MrExcel.
Try replacing all that code with

Range("A2:J1003").Copy Sheets("EOC").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Bobmn4]

Hi & welcome to MrExcel.
Try replacing all that code with

Range("A2:J1003").Copy Sheets("EOC").Range("A" & Rows.Count).End(xlUp).Offset(1)

It failed at ActiveSheet.Paste

Range("A2:J1003").Copy Sheets("EOC").Range("A" & Rows.Count).End(xlUp).Offset(1)
ActiveSheet.Paste

 

[Fluff]

It replaces all the code you posted.

 

[Bobmn4]

I Nulled my previous codes and not it stopped at the next code

'Range("A2:J1003").Select
'Selection.Copy

'Adding Greens below reds
'Sheets("EOC").Select
'Range("A1").Select
'Range("A" & Rows.Count).End(xlUp).Offset (1)
'Selection.End(xlDown).Offset(1, 0).Select

Range("A2:J1003").Copy Sheets("EOC").Range("A" & Rows.Count).End(xlUp).Offset(1)
ActiveSheet.Paste

So after your code it goes as follows

Range("A2:J1003").Copy Sheets("EOC").Range("A" & Rows.Count).End(xlUp).Offset(1)
ActiveSheet.Paste

Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.End(xlUp).Select

 

[Fluff]

Get rid of the ActiveSheet.Pasteline

 

[Bobmn4]

Get rid of the ActiveSheet.Pasteline

wont that not paste the info where is the paste command.

 

[Fluff]

Try it & see.

 

[Bobmn4]

Try it & see.

It didn't work
the information that was copied did not paste

 

[Fluff]

Should have.
On the EOC sheet do Ctrl End & then look at col A for that row & above