Combine two separate Find and Format Macros into one

Use:

Dim fnd As Boolean
fnd = False
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
    Do While .Execute(FindText:="potatoes", Forward:=True, _
        MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True
        fnd = True
        Selection.MoveRight Unit:=wdCharacter, Count:=3
        Selection.InsertAfter vbCr
        Selection.Collapse wdCollapseEnd
    Loop
End With
If fnd = False Then
    Selection.HomeKey wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        Do While .Execute(FindText:="tomatoes", Forward:=True, _
        MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True
            Selection.InsertAfter vbCr
            Selection.Collapse wdCollapseEnd
        Loop
    End With
End If