Snasui Excel Forum

Code: Select all

'other code
    Columns("A:C").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("D:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet1!R2C3:R33362C13,9,0)"
    ActiveCell.Copy
    Range("E5").Select
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Sheet1!R2C3:R33362C13,11,0)"
'other code