Sub UpdateMyTips()

Dim myNewTip As Long
Dim myOldTotal As Long
    
    myNewTip = CLng(ActiveDocument.Paragraphs(1).Range.Words(1).text)
    
    myOldTotal = CLng(ActiveDocument.Paragraphs(2).Range.Words(1).text)
    
   With ActiveDocument.Paragraphs(2).Range
   
        .Words(1).text = CStr(myNewTip + myOldTotal) & " "
        .InsertAfter text:=myNewTip & " " & Format(Now(), "DDDD, MMMM d, yyyy") & vbCrLf
    End With
    ActiveDocument.Paragraphs(1).Range.text = " " & vbCrLf
End Sub