Msg box response is ignored

I have added Code Tags this time, please be sure to read the Forum rules before posting again.

This code asks for a response then copies the data. Note it does not use the loop - which would take longer, nor is it necessary to activate or select sheets and ranges

Option Explicit

Private Sub CommandButton1_Click()
    Dim NextCl As Range

    Select Case MsgBox("Send Scaffold to destruct?", vbYesNo Or _
                                                     vbQuestion Or vbDefaultButton1, "Action")
        Case vbYes
            With Worksheets("sheet2")
                Set NextCl = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0)
                Worksheets("sheet1").Range("A4:h4").Copy NextCl
                Worksheets("Sheet1").Rows(4).Delete
            End With
        Case vbNo
            Exit Sub
    End Select
End Sub