Using VBA to create column header

[mainemojo]

I've created some columns using this code:

Private Sub AddNameColumns()
    With Sheets("ModifiedData")
        Columns("B:D").Select
        Selection.Insert Shift:=xlToRight
        Columns("N:P").Select
        Selection.Insert Shift:=xlToRight
    End With
End Sub

I'd like to put values (or column headers) into B1, C1, D1, N1, O1, and P1.

[tigertiger]

try add some code lines, like this:

Private Sub AddNameColumns()
    With Sheets("ModifiedData")
        Columns("B:D").Insert Shift:=xlToRight
        Columns("N:P").Insert Shift:=xlToRight
         .Range("B1:D1")=1
         .Range("N1:P1")="Example"
    End With
End Sub