Copy and paste from one sheet to another leaving out hidden cells

Thanks John,

It didn't work at first but if i change - If ws2.Rows(j).Hidden = False Then to If ws1.Rows(i).Hidden = False Then it works but where there was a hidden row it pastes the data every 14 rows instead of every 7 so i end up with big gaps.

Not sure how you're i variable is working. Can you post a copy/sample of your workbook?

To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.