Excelのﾏｸﾛで指定のｷｰﾜｰﾄﾞを､各行指定の文字列で置換したい

今､G列にﾃﾞｰﾀがｽﾞﾗﾘと12万行ほどありまして｡
まず5行目のｾﾙの文字列(仮に“りんご”だとします)をｺﾋﾟｰしまして｡
6行目から23行目の｢すきやき｣という文字列を､“りんご”に置換します｡

次に26行目の文字列(仮に“ごりら”だとします)をｺﾋﾟｰしまして｡
27行目から44行目の同じく｢すきやき｣という文字列を､“ごりら”に置換します｡

さらに47行目の文字列(仮に“らっぱ”だとします)をｺﾋﾟｰしまして｡
48行目から65行目の同じく｢すきやき｣という文字列を､“らっぱ”に置換します｡


このように､5行目､26行目､47行目､68行目､89行目…と､5行目を起点にして､21行毎に各行のｾﾙをｺﾋﾟｰしまして｡
各行の下にある18行のｾﾙが全て｢すきやき｣になってしまってるので､それをｺﾋﾟｰしたｾﾙで書き換え(置換)したいのです｡

そのような処理がﾏｸﾛ等で可能であればお教えいただけないでしょうか｡
よろしくお願いいたします｡

Sub replace_word()
 col_target = 7  ' G列
 word = "すきやき"

 last_row = Cells(Rows.Count, col_target).End(xlUp).Row

 For r = 5 To last_row Step 21
 new_word = Cells(r, col_target).Value
 For rr = r + 1 To r + 18
 Cells(rr, col_target) = Replace(Cells(rr, col_target), word, new_word)
 Next
 Next
End Sub

(C)株式会社はてな