Paste onto next available row

This line controls which worksheet is the 'source':

Set wsSrc = Worksheets("Ian")

There are several options for how to apply the code to other / multiple worksheets - you could change this line to only work on the active sheet, so you manually select a sheet, then call the macro;

Set wsSrc = ActiveSheet

Or you could loop through some / all worksheets...

How do you want it to work?