【エクセルマクロ】会社リストのワークシートと、注文リストのワークシートがあります。両方ともA列には会社ごとに一意のIDが入っています。このIDをキーに、一度も注文がない会社だけを抽出した会社リストを作成するマクロを教えてください。注文のある会社で、会社リストにないものはありません。　ワークシート操作なら出来たのですが、自動記録で上手くマクロ化できませんでした。

シート名がそれぞれ、会社リスト、商品リストとして、抽出するシートをアクティブにして実行してみてください。

Sub Macro()
    Dim lastRow As Long
    Dim i As Long
    Dim count As Long
    Dim obj As Object
    
    lastRow = Worksheets("会社リスト").Cells(Rows.count, 1).End(xlUp).Row
    
    count = 1
    With Worksheets("会社リスト")
        For i = 1 To lastRow
            Set obj = Worksheets("注文リスト").Range("A:A").Find(.Cells(i, 1).Value, LookAt:=xlWhole)
            
            If obj Is Nothing Then
                Cells(count, 1).Value = .Cells(i, 1).Value
                Cells(count, 2).Value = .Cells(i, 2).Value
                Cells(count, 3).Value = .Cells(i, 3).Value
                count = count + 1
            End If
        Next i
    End With
End Sub