I don't see anything obviously wrong with your code, but on the CopyToRange argument, I would probably change it to just the first cell of the region.
I ran the code and it seems to run fine.![]()
CopyToRange:=Range("A81")
Look at the attached workbook and please tell me what is different about your setup? Maybe this will help us see what's going wrong.
Bookmarks