Workbooks.Open Filename:= _
"C:\Users\acthoma\Desktop\Reports\Bulletin\VLookup_2012.xlsx"
Windows( _
"Week xx Condensed_Weekly_Advisor_Results_by_Market_Group_or_Region-xx-xx-xxxx.xlsx" _
).Activate
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-3],[VLookup_2012.xlsx]Condensed_Weekly_Advisor_Result!C1:C2,2,FALSE)"
Range("C2").Select
Selection.End(xlDown).Select
Range("D216").Select
Range(Selection, Selection.End(xlUp)).Select
Range("D2:D216").Select
Range("D216").Activate
Selection.FillDown
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-4],[VLookup_2012.xlsx]Condensed_Weekly_Advisor_Result!C1:C4,4,FALSE)"
Range("D2").Select
Selection.End(xlDown).Select
Range("E216").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Bookmarks