After opening the new workbook that you are going to paste the data into,
you have the following code:

Range("B3").Select
With Selection.CurrentRegion
.Cells(.Cells.Count).Activate
End With

Then the line right after that is:

ActiveCell.Offset(Count + 1, -45).Select

I don't think "Count" is being assigned anything (it appears to be a new
variable that has never been assigned any value). If you single-step
through the code, what value does this "Count" have when you hover the
mouse over it?

--
Regards,
Bill Renaud