Adds Premium support to Direct Quote.

PremiumAdderFC.VBA

Sub PremiumAdderFC()
'
' PremiumAdderFC
' Adds Premium support to Direct Quote.
'
    Dim PlatPrice As Integer
    PlatPrice = 299
    FormattedPlatPrice = Format(PlatPrice, "$##,##0.00")
    Selection.InsertRowsBelow 1
    Selection.MoveLeft Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Platinum Support"
    Selection.MoveRight Unit:=wdCell, Count:=3
    Selection.TypeText Text:=FormattedPlatPrice
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:=FormattedPlatPrice
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.SelectCell
    PrevPrice = Val(Replace(Replace(Selection.Text, "$", ""), ",", ""))
    NewPrice = PrevPrice + PlatPrice
    FormatNewPrice = Format(NewPrice, "$##,##0.00")
    Selection.TypeText Text:=FormatNewPrice
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.SelectCell
    Selection.TypeText Text:=FormatNewPrice

End Sub