このコードをどう修正した良いかわかりません

今回は私が作成したコードうまく実行されないので修正方法を教えていただきたいです。
どういったコードかというと対象の範囲からkeyとなる番号を検索値とし入力し
検索値に対するロットNoを抽出するといったものになります。
作成したコードは下記のとおりです。
Sub 抽出()
Dim strTemp As Variant
Dim i As Long
Dim k As Long
Dim U As Long

k = 2

strSerchKey = Range("e2")

U = Cells(Rows.Count, 1).End(xlUp).Row

Range(Cells(2, 6), Cells(U, 6)).ClearContents

strTemp = Range(Cells(2, 1), Cells(U, 6))

For i = LBound(strTemp, 1) To UBound(strTemp, 1)
If strTemp(i, 1) = strSerchKey Then
Cells(k, 6) = strTemp(i, 1)
k = k + 1
End If
Next

End Sub

以上となります。
出来る人から見たらお粗末なものかもしれませんが、お手柔らかにお願いします。
お手数をお掛けしますが、ご教授のほどよろしくお願いします。

No.1 回答者： cametan_42 回答日時： 2022/02/12 01:25

Rubyじゃないんじゃない?

投稿カテを間違えてる。

この回答へのお礼

投稿カテゴリを間違えてました。
教えて下さりありがとうございます。

お礼日時：2022/02/12 02:22