Is there a way to shorten this? The end result will be multiple workbooks/sheets/ranges and the macro would be hundreds of lines long if kept this way. For this example alone the actual version is 4x longer than this. Its a exact copy of this but changes the cells it copies from and the destination file. Any suggestions would be appreciated.
Code:
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("M4:M106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("J4:J106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("N4:N106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("L4:L106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("O4:O106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("R4:R106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("P4:P106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("T4:T106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("Q4:Q106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("Z4:Z106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("R4:R106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("AB4:AB106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("S4:S106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("AH4:AH106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("T4:T106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("AJ4:AJ106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("U4:U106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("AP4:AP106")
Workbooks("Account Lookup Table - Dept ROF File Output").Sheets("ROF Col").Range("V4:V106").Copy
ActiveSheet.Paste Destination:=Workbooks("Collections - Central").Sheets("Feb 09").Range("AR4:AR106")