Error in expression

[Klartigue]

I keep getting an error with the following expression in my macro:

[VBA]Sub Name()
'
' Name Broker
'
Columns("F:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1").Select
ActiveCell.FormulaR1C1 = "Broker"
Range("F2").Select

End Sub[/VBA]

Do you know whats wrong?