9_入荷　重複しないリスト作成

Sub 重複なし()
    Sheets("未入荷").Select
    Range("R3").Select
    ActiveSheet.Range("$A$3:$V$5511").AutoFilter Field:=18, Criteria1:="<>"
    Range("Q3:R3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A3").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    ActiveSheet.Range("B:B").RemoveDuplicates Columns:=1, Header:=xlYes
    Sheets("未入荷").Select
   
    If Worksheets("未入荷").FilterMode Then
 Worksheets("未入荷").ShowAllData
 MsgBox ("フィルタを解除しました。")
End If
'   ActiveSheet.Range("A3").AutoFilter  '// 設定 or 解除
End Sub