Thanks again, one last thing...

Despite all my attempts, I can't quite work out how I would go about making a new row appear in wsSource after the copy/paste action for one sheet is completed.

I have tried using 

'select sheet1 and create new line for next copy/paste
Sheets("Sheet1").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
but it comes back with subscript out of range... Any suggestions?