The following code won't let me copy from the first workbook. I get a run time 1004 error stating "That command cannot be used on multiple selections".
I would rather not have to copy this by column for each of the 4 workbooks so any help getting this in just 4 copy/pastes would be greatly appreciated.
Sub Stats()
'
' Stats Macro
' Copies Raw Data from Teamspreadsheets to MI spreadsheet to calculate stats
'
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"R:\Derivatives - Project Rosetta\BAU-GoLive\Redress Team Folder - DO NOT MOVE\Tracker\New CET Redress Team Trackers\Redress Tracker Team 1.xlsx"
Sheets("Redress Tracker").Select
Range("A4:C2000,I4:I2000,J4:J2000,K4:K2000,R4:R2000,S4:S2000,AD4:AD2000,AU4:AU2000,AW4:AW2000,BE4:BE2000,BF4,BF2000").Select
Selection.Copy
Sheets("Raw Data").Range("Redress Tracker MI.xlsx").Activate
Range("A3").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
MsgBox (Complete!)
End Sub
Bookmarks