Add ability to copy only the visible data into an existing macro

Hi,

I've got a macro that copies and transposes several columns of data from one sheet onto a new sheet. I'd like to add the ability to filter the data on Sheet 1 and have only the filtered data copied over to the new sheet.

I've uploaded a sample of what I'm trying to do and I really appreciate any help / advice people might have.

Thanks!