エクセルVBA、列のコピーについて

VBAについて助けてほしいことがございます！
VBA初心者なので、ひょっとしたらレベルの低い質問かもしれず申し訳ないのですが、VBAに詳しい方がいらっしゃれば教えて欲しいことがあります。

下記の前提を含めた作業内容をVBAのコードとしてまとめる事は出来るのでしょうか？

添付図のように1列目（A1,B1,C1,D1…）にキー項目（名前、番号、地域、住所、ID…）、2列目以降にキー項目のデータが入力されています。

【作業内容】
「ID」の項目の列には、「番号」の列の文字をコピーして貼りつける（キー項目は上書きせずにIDのまま）。添付図の水色の部を黄色部に張り付けるイメージです。

【前提】
・キー項目の列は固定されていない（B列が番号の時もあれば、住所の時もある）ので、文字を基準にコピー作業をする
・「キー項目が空欄にぶつかったら、検索を終了」という事をループに入れる（キー項目数は変動するため）
・2列目以降の全てのデータをに張り付ける」という事をコードに入れる（2列目以降のデータの列数も変動する且つ途中に空欄も含むため）

No.1 回答者： ママチャリ 回答日時： 2017/11/29 08:12

ループでは無いのですが、条件さえ満たせば、この方が簡単だと思います。

Sub Macro1()
Application.DisplayAlerts = False
ActiveSheet.UsedRange.CreateNames Top:=True, Left:=False
Range("番号").Copy Destination:=Range("ID")
End Sub