VBAを使用して、行の位置はそのままに指定した列へ移動したいです

Question

前提・実現したいこと

行の位置はそのままに、指定した列へ移動したいです。

発生している問題

日付検索をかけると、1340行目にｶｰｿﾙを合わせていても
6行目の日付のセルに移動してしまいます。

該当のソースコード

Sub 日付検索Click()

Dim A As Range
Dim B As Range
Dim C As Range

Set A = Range("L6:MH1000").Find(what:=Range("E4").Value, SearchOrder:=xlByColumns)

If A Is Nothing Then

Else
Set B = A
Set C = A
End If

Do
Set A = Range("L6:MH1000").FindNext(A)
If A.Address = B.Address Then
Exit Do
Else
Set C = Union(C, A)
End If
Loop
C.Select

End Sub

試したこと

VBA初心者の為、Googleで検索したものをアレンジして書いています。

補足情報（FW/ツールのバージョンなど）

Win10、Excelは2005を利用しています。

Answer 1

えっと、目的は「該当の日付の列を画面に見せる」でしょうか？

そうだとしたら、複数セルを一度に選択することは無意味ですかね？

Union関数は、セル範囲の和集合を返します。
今回の件は、Intersect関数を使い、
選択セルを含む行全体のセル範囲と見つけたセルの列全体のセル範囲の積集合を求めると
いいと思います。

あと、検索もとりあえず1個見つけたらいいと思うので、
ループする必要もなさそうです。

Sub test()
    Dim rngFound As Range
    
    Set rngFound = Range("L6:MH6").Find(what:=Range("E4").Text)
    If rngFound Is Nothing Then
        MsgBox "見つかりませんでした。"
        Exit Sub
    End With
    
    Intersect(Selection.EntireRow, rngFound.EntireColumn).Select
End Sub

ただし、選択されているセルを基準にすると操作ミスで思い通りに動かない可能性がありますよね？
もう少し使う人が使いやすいように考える必要がありそうです。
そもそもセルを選択する必要があるのかも疑問です。

Comments

[YFukushima]

ご回答ありがとうございます！

目的は案件(行)はそのままに、該当の日付の列に画面をもっていくことです。
うまく説明ができず申し訳ないです…

確かにループする必要はありませんよね…
コードも作成していただいてありがとうございます。
作成していただいたコードを参考に使いやすくできるように頑張ります！

Answer 2

どうでしょうか。
'C.Select 'コメント
dim lCol as long
lCol = C.Column
Cells(1340, lcol).Select

Comments

[YFukushima]

早速のご回答ありがとうございます！

すみません、いただいた回答について質問なのですが、
Cells(1340, lcol).Selectの1340を”D”など変数宣言すれば他の行でも同じように適用できるでしょうか？

[tosi]

>”D”など変数宣言
dim D as long 　 'と言う感じですよね。
D=1340
Cells(D, lcol).Select　'となります。