Help with creating a macro that will copy and paste data to multiple sheets.

Here you go mate. Thank you. I Was also wondering if its possible to get the data to paste below the titles in the columns you will see in each sheet rather thsn deleteling the columnsas it does now?

many thanks