Sub E_3()
'
' E_3 Macro
' Rub*1
'
'
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*1"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C3066")
Range("C3:C3066").Select
Columns("C:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Range("B2").Select
End Sub