Find/Replace Macro to Word

Kenneth i have viewed that topic but I am stuck at this point;

 With MyRange.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = "placepencilhere"
          .Replacement.Text = replacethis
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          .Execute Replace:=wdReplaceAll
  End With

This only makes use for one change, I want to do about 50 different changes in the Word Doc for example;

 With MyRange.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = "NAME1"
          .Replacement.Text = Range("C2")
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          .Execute Replace:=wdReplaceAll
 
Then 

 With MyRange.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = "ADDRESS1"
          .Replacement.Text = Range("B18")
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          .Execute Replace:=wdReplaceAll
  End With

How do I achieve this.