7_入荷　クリア

Sub 未入荷クリア()
Dim i As Long
Workbooks.Open FileName:="D:\JBRC検収システム\03_入力済データ\入荷済.xlsm"
  i = Range("A2").End(xlDown).Row
Range(Range("A2"), Cells(i, 16)).ClearContents
Workbooks("入荷済.xlsm").Close savechanges:=True
Workbooks("JBRCシステム入荷.xlsm").Sheets("未入荷").Activate
i = Range("A3").End(xlDown).Row
Range(Range("A4"), Cells(i, 21)).ClearContents
End Sub

Sub カーゴ集計()

Dim i As Long
Workbooks("JBRCシステム入荷.xlsm").Sheets("カーゴ集計").Activate
i = Range("A2").End(xlDown).Row
Range(Range("A2"), Cells(i, 1)).ClearContents

End Sub