删除工作表中的特定范围，然后隐藏工作表

Question

我在尝试插入代码以删除特定工作表上特定范围内的所有信息然后隐藏工作表时遇到问题。

似乎删除或清除范围的代码有效 但是，当我插入一些代码来隐藏最后一张纸时，它会执行该操作但不清除该范围的信息。
有人可以帮帮我吗？

Sub Delete()

    Dim answer As Integer
    answer = MsgBox("Are you sure you want to clear the sheet?", vbYesNo + 
    vbQuestion, "Empty Sheet")

    If answer = vbYes Then

        Application.ScreenUpdating = False
        Range("A8:G1000").ClearFormats
        Range("A8:G1000").Select
        SendKeys "{Delete}", True
        SendKeys "{LEFT}", True

        Sheets("Box Quantities and Picking ").Visible = False

    Else
        'do nothing
    End If
End Sub