Excel - insertar columna

Buen dia. Tengo una columna en excel y apartir de ella necesito insertar una nueva pero no con valores, el codigo que tengo actualmente es:
Sub AdicRecursos()
Columns("Q:S").Select
Selection.Copy
Selection.Insert shift:=xlToRight
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Pero la funcion de pastespecial no me esta pegando solo las formulas sino tambien los valores.
Agradezco su ayuda.

A que te refieres con que pega formulas y valores?? Son dos cosas distinta, asi que seria bueno que trates de explicarte mejor

Abraham