Copy paste columns if criteria is met

Since you are using merged cells in your formatting, I suggest you create your archives like this.

Please Login or Register  to view this content.

This should work but it don't. It works to a point then begins returning 'Nothing' for the fn variable. I have spent more time on it than I wanted to, trying to figure out your worksheet idiosyncrasies and have not solved the problem. Maybe somebody smarter than me can figure out how to get the correct columns to copy without using the find method. This is what I was working with, in case somebody else wants to try and debug it.

Please Login or Register  to view this content.

Thank you for trying

Try this.

Please Login or Register  to view this content.

Note : Dates in Week 10 & 11 are identical in your file.

@jindon. Thank you, its works, if it's not too much to ask, could you explain to me each line of code.

Thanks

Originally Posted by jaslake

@Jindon

Good catch...didn't notice that...

Yes and thanks for the rep.

Originally Posted by sandy1977

@jindon. Thank you, its works, if it's not too much to ask, could you explain to me each line of code.

1) Detect cells that have numbers(dates in this case) in Row 4 in "Totals" sheet,
2) Ref each currentregion in 1) and get matched first date in "monthly overall" row 4.
3) If matched date found, copy required range to the column that matched.

When I run the code in my actual spreadsheet (see picture) its giving an error at this line:

Set myAreas = Sheets("Totals").Rows(7).SpecialCells(2, 1).Areas <-------'my dates in this spreadsheet start at row 7

"Its says No cells were found"

Could it be because I have formulas in those cells?

1-17-2016 8-16-16 PM.jpg

If you are talking about the file other than the one you uploaded, no idea.

Ok, thank you for all your help, you've been very helpful.