Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("货期检查")
    ws.Range("A4:P10000").ClearContents
    Call RunDeliveryCheck
End Sub

Private Sub CommandButton2_Click()
    Call SyncModifiedDatesToAccess
    Call ArchiveModifiedData
    Call UpdateSourceDataCopy
End Sub