Sub Macro1()
'
' Macro1 Macro
'
'
Columns("K:O").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1:J170").Select
Selection.Copy
Columns("K:K").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("P:U").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
End Sub