EXCEL2002で、VBAにお詳しい方、お願いします

質問

初心者の為、基本的な質問ですみません。私の場合、まず初めに、下記に記す、元々ベース(下敷き)となるＶＢＡコードがあって、その変更方法について、お尋ねします。
下記リンクのＶＢＡ⇒ANo.5では、A4の４桁の数字を、4行目にあるIn Range("D4:F104")の中から、探してきて、置き換えるのですが、
　新たに付け加えて改良したい点　（１）参照セルとなる、４桁数字の入力セルを、これまでのＡ列、A4,起点から,
他の(1)Ｂ列、B4,起点、(2)Ｃ列、C4,起点、に変更する際、ＶＢＡのどの部分を、どのように変更するのか？　下記のＶＢＡに当てはめ、書いて頂けると、たいへん有難いです。
（２）上記(1)が出来なくとも、同じ１枚のワークシートに、
(1)上記(1)A4⇒⇒⇒D4:F104 の他にも、(2)　　　 G4⇒⇒⇒J4:L104
(3)　　　 M4⇒⇒⇒P4:R104
と、縦長に、３系統、下記と全く同じＶＢＡを更に横に３列並べて、区分して記述する場合、上記と同様に、下記に記すＶＢＡのどの部分を、どのように変更するのか？　下記のＶＢＡに当てはめ、書いて頂けると、たいへん有難いです。
(1)A4⇒⇒⇒D4:F104｜(2)G4⇒⇒⇒J4:L104｜ (3)M4⇒⇒⇒P4:R104
たいへん手前勝手で、都合の良い話ですが、教えて頂けると、非常に有難いです。宜しくお願いします。　
　≪元々の、ベース(下敷き)となるＶＢＡ≫　QNo.2487806の⇒ANo.5　　http://okwave.jp/qa2487806.htmlの発展の質問です。
後残り十数行なのですが、VBAの以下の部分を全て記述すると800字を越えてしまうので、御覧になって、興味を持って頂いたなら、「仮の回答」をください。そこで、直ちに、その「回答の補足」に、残りのVBAを書き込みますので、「正式の回答」を下さい！紙幅が足りない為、説明が舌足らずですが、次回の「回答補足」では、字数に捕われず解り易く書けます。

回答No.1

FUURINKAASAN

では
補足ねがいます

補足

御回答頂けるということで、誠に有難うございます。
　お優しい方に出会えて、たいへん幸運に思い、感謝しております。

　では、さっそく本題の件に移らせて頂きます。
　当初は、８００字制限を想定していなかった為、リンクを貼った、質問の≪元々の、≪元々の、ベース(下敷き)となるＶＢＡ≫　QNo.2487806の⇒ANo.5 http://okwave.jp/qa2487806.html​
のＶＢＡ Scuriptを、"尻切れトンボ"で、書き切れませんでした。当初、書きたかった"一揃いの文章"を、原文そのまま書きます。

　VBAにお詳しい方、お願いします

　初心者の為、基本的な質問ですみません。
　私の場合、まず初めに、下記に記す、元々ベース(下敷き)となるＶＢＡコードがあって、その変更方法について、お尋ねします。

下記のＶＢＡでは、A4の４桁の数字を、4行目にあるIn Range("D4:F104")の中から、探してきて、置き換えるのですが、

　新たに付け加えて改良したい点
（１）参照セルとなる、４桁数字の入力セルを、これまでのＡ列、A4,起点から,
他の(1)Ｂ列、B4,起点、
　　(2)Ｃ列、C4,起点、に変更する際、ＶＢＡのどの部分を、どのように変更するのか？　下記のＶＢＡに当てはめ、書いて頂けると、たいへん有難いです。

（２）上記(1)でなくとも、同じ１枚のワークシートに、複数個の対応
(1)上記(1)A4⇒⇒⇒D4:F104 の他にも、
(2)　　　 G4⇒⇒⇒J4:L104
(3)　　　 M4⇒⇒⇒P4:R104
と、縦長に、３系統、下記と全く同じＶＢＡを更に横に３列並べて、区分して記述する場合、上記と同様に、下記に記すＶＢＡのどの部分を、どのように変更するのか？　下記のＶＢＡに当てはめ、書いて頂けると、たいへん有難いです。

(1)A4⇒⇒⇒D4:F104 　 ｜ 　(2)G4⇒⇒⇒J4:L104 　｜ (3)M4⇒⇒⇒P4:R104
　A5 ｜ G5 ｜　　 M5　

　なお、念の為、表示の番号に対応させ、
御回答（１）(1)については‥‥‥‥‥‥
　　　（１）(2)については‥‥‥‥‥‥　
　　　（２）の場合については‥‥‥‥‥‥　
と書いて頂けると、たいへん手前勝手で、都合の良い話ですが、教えて頂けると、非常に有難いです。宜しくお願いします。　

　≪元々の、ベース(下敷き)となるＶＢＡ≫
Sub データ置換5()
Dim RepStr As String
Dim r As Range

For Each r In Range("C4:E104")
RepStr = Num4ck(r.Value)
If Cells(r.Row, 1) <> "" And RepStr <> "" Then
r.Replace What:=RepStr, Replacement:=Cells(r.Row, 1)
End If
Next
End Sub

Function Num4ck(STR As String)

Dim tmp As String
Dim i As Integer
Dim FLG As Boolean

For i = 1 To Len(STR) - 3
tmp = Mid(STR, i, 4)
If Val(tmp) >= 1000 Then
FLG = True
Exit For
End If
Next

If FLG Then
Num4ck = tmp
Else
Num4ck = ""
End If

End Function