特定の範囲の黒丸(●)を､指定したｾﾙの文字列に置換したい｡ただいま､以下のようにﾃﾞｰﾀが並んでいるとします｡ 1 G列 2 (空白ｾﾙ) 3 ● あいうえお･･･ 2…

特定の範囲の黒丸(●)を､指定したｾﾙの文字列に置換したい｡
ただいま､以下のようにﾃﾞｰﾀが並んでいるとします｡
1 G列
2 (空白ｾﾙ)
3 ● あいうえお
･･･
24 ● かきくけこ
25 (空白ｾﾙ)
26 (空白ｾﾙ)
27 ● あいうえお
･･･
48 ● さしすせそ
49 (空白ｾﾙ)
50 (空白ｾﾙ)
51 ● あいうえお
･･･
72 ● たちつてと
73 (空白ｾﾙ)
74 (空白ｾﾙ)
75 ● あいうえお
･･･

そして､J列の25行目には｢りんご｣､J列の49行目には｢ごりら｣､J列の73行目には｢らっぱ｣という文字列が入っております｡
ここにおきまして､G列3行目～24行目の黒丸はJ列25の｢りんご｣に､G列27行目～48行目の黒丸はJ列49行目の｢ごりら｣に､G列51行目～72行目の黒丸はJ列73行目の｢らっぱ｣に､置換したいのです｡
そしてこの置換処理を､15000行ほどまで行いたいです｡
G列は3行目から始まり､21行+空白ｾﾙ2行毎に置換ﾜｰﾄﾞが変わり｡
J列は25行目から始まり､24行毎に､G列の指定ｴﾘｱの黒丸に置換していくﾜｰﾄﾞが変わるという｡
規則性がありますので､何とかExcelのﾏｸﾛで処理したいのですが｡
よろしくお願いします｡

説明文とｻﾝﾌﾟﾙで空白行がずれている気がしますが､ｻﾝﾌﾟﾙが正としての例です｡

Sub Sample()
 Dim r As Long
 For r = 25 To Cells(Rows.Count, "J").End(xlUp).Row Step 24
 If Cells(r, "J").Value <> "" Then _
 Cells(r - 22, "G").Resize(22).Replace "●", Cells(r, "J").Value, lookat:=xlPart
 Next
End Sub

異なっている場合は､行数や周期を調整してください｡