Macro to Copy range from multiple sheets and paste in new Workbook

I have a macro that takes info/data from multiple sheets in the Basin workbook and summarizes it into the Median Database workbook. I need to copy the values in range B5:EM5 in every sheet (each sheet name is site #) in the Basin workbook and paste that range into the median database workbook row with the corresponding site.

Here is what I have so far

Please Login or Register  to view this content.

I have figured out how to grab the sheet name and insert it in the median database. The problem is the copy/paste of the range in each sheet. The macro locks up every time.

Any help is greatly appreciated!!

You will need to explain some more. What data goes where?

Sorry if I was unclear, but I figured it out last night

Here is the updated code for the section I was struggling on.

Please Login or Register  to view this content.

Thanks!