Sub TTC()
Dim TOTALCOST As Integer
' TTC Macro
' Macro recorded 24/01/2003 by SURAJ



If TOTALCOST >= 99.99 Then
Range("TOTALCOST").Select
    ActiveCell.FormulaR1C1 = _
"=SUM(RC[-1]:R[65534]C[-1])"
        
    Range("TOTALCOST").Select
Else: MsgBox ("If you spend over £100.00 you get a 10% discount")

If TOTALCOST <= 100 Then
Range("TOTALCOST").Select
ActiveCell.FormulaR1C1 = _
"=SUM(RC[-1]:R[65534]C[-1])-(10/100*RC[-1]:R[65534]C[-1])"
    Range("TOTALCOST").Select
  
    End If
    End If
End Sub