Need to copy multiple lists to one sheet

[kristin]

Ok so I was put in charge of a new commission program at work and I have developed the Monthly tracking sheets but my boss wants a yearly report of every job sold. I put the sheet up below and have January done. I need to take all the jobs that will end up in the monthly sheet list (could be 2 could be 20 it will vary month to month) and copy them to the List I have set up in the tracking sheet. Any help would be greatly appreciated. Password to get in is "kristin"

[figment]

i am makeing the assumtion that all your month will be set up in exactly the same format

Attachment 7481

[mdmackillop]

Hi kristin
Welcome to VBAX
This will copy all sheets to the last sheet. If you need to refine the copy area, this can be developed to suit
Regards
MD

[VBA]
Sub CollectData()
For i = 1 To Sheets.Count - 1
Sheets(i).UsedRange.Copy Sheets(Sheets.Count).Cells(Rows.Count, 1).End(xlUp).Offset(2)
Next
End Sub

[/VBA]