Prevent a VBA wiping over specific columns when pasting into a new sheet

Hi all,

I am using the below VBA to look for certain criteria in the column of one tab and depending what value is in each row it will paste into a separate spreadsheet. The VBA is working really well, the only problem I have is that as it is pasting the whole row it is copying over columns that I have data in that needs to remain there. Is there a work around to this VBA?

If it helps I only need to copy the first 5 columns of the main sheet into the corresponding tabs.

Please Login or Register  to view this content.

Possibly,

Please Login or Register  to view this content.

Change rows(r) to Range("A" & r).Resize(, 5).

The code was to replace

Rows(r).Copy, you said you wanted to copy column A:E instead of the entire row.