Forms VisualBasic Script

Sub replace()
    ActiveSheet.Columns("B").Replace What:="Sales", _
        Replacement:="Sales & Marketing", SearchOrder:=xlByColumns, _
        MatchCase:=True
End Sub