Option Explicit



Sub 重設表格()

    Dim 目前編號 As Integer

    Sheets("訂單").Range("D5,D10:E16").ClearContents

    目前編號 = Sheets("資料庫").Range("A1").CurrentRegion.End(xlDown).Value

    Sheets("訂單").Range("G6").Value = 目前編號 + 1
    Sheets("訂單").Range("G7").Value = Date

End Sub