I have 12 sheets of data that I would like to collate into one sheet (sheet 13), I must be over looking something because I just cant seem to get this to work. Please review my code below, it hangs at the last line, what am I missing?
Sub Collate_data()

'Clear all content in Sheet 13
Sheets(13).Range("A2:S5000").Clear

Application.ScreenUpdating = False
 
'Collate data
Sheets(1).Range("A3:S5000").Copy
Sheets(13).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(2).Range("A3:S5000").Copy
Sheets(13).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSepcial Paste:=xlPasteValuesAndNumberFormat, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
I hope someone can help me with this.
Thanks in advance for your help