特定のセルの値と同じ値を、特定の列に含む別シートの行を削除するマクロを教えていただきたいです。

VBAに関する質問です。
特定のセルの値と同じ値を、特定の列に含む別シートの行を削除する方法を教えていただきたいです。
具体的には、「在庫リスト」シートに在庫商品の情報が格納されており、そのリストから商品を販売します。
在庫商品はそれぞれ在庫IDが振られています。

在庫商品を販売・出荷するときに「出荷処理」シートの指定箇所に、在庫IDを記入すると、VLOOKUPやその他簡易なマクロ等によって帳票等が作成可能になっております。
ここで「出荷処理」シートの在庫ID箇所に記入された商品情報を、「在庫リスト」から行ごと削除する方法をご教授いただけないでしょうか？

宜しくお願い致します。
画像参考にしていただけると幸いです。

No.1 回答者： goomania 回答日時： 2021/06/10 23:44

sheet1に「出荷処理」シート、sheet2に「在庫リスト」があるものとすると、ご質問者のご希望のような動作をする、「出荷処理」ボタンに登録すべきVBAは以下のようなものです。

Sub Sample()
Dim i As Long
Dim ID As Long
ID = Cells(2, 2).Value
Worksheets(2).Activate
With ActiveSheet
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value = ID Then
Range(i & ":" & i).Delete
End If
Next
End With
Worksheets(1).Activate
End Sub