Insert Found Column

[Guzzlr]

Set fnd = Range("8:8").Find("WBS", , , xlWhole, , , False, , False)
If Not fnd Is Nothing Then
    Intersect(Range("8:5000"), fnd.EntireColumn).Copy
    Range("B8").PasteSpecial xlPasteValues
    Intersect(Range("8:5000"), fnd.EntireColumn).ClearContents
End If

Hello
The code above is working well. However, how would I modify it so that instead of pasting as values, It would insert values in the Range of B8, which would drive all columns to the right.
Thanks for the help

 

[Fluff]

How about

Set Fnd = Range("8:8").Find("WBS", , , xlWhole, , , False, , False)
If Not Fnd Is Nothing Then
    Intersect(Range("8:5000"), Fnd.EntireColumn).Copy
    Range("B8").Insert xlToRight
    Intersect(Range("8:5000"), Fnd.EntireColumn).ClearContents
End If