Welcome to the forum. One of the important forum rules is to wrap [code] [ /code] tags around your posted code. Please go back to your original post, click on GO ADVANCED, then highlight the code and click on the # icon...thanks, it makes the forum SO much easier to read, and it's a rule! Notice how much easier it is to read my code below.

Meanwhile...try this:
Private Sub CommandButton1_Click()

If MsgBox("Send Scaffold to destruct?", vbYesNo + vbCritical) = vbNo Then Exit Sub

Worksheets("sheet2").Activate
ActiveSheet.Range("b4").Select

    Do
        If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select
    Loop Until IsEmpty(ActiveCell) = True

Worksheets("sheet1").Range("A4:H4").Copy
Worksheets("sheet2").Paste Destination:=ActiveCell.Offset(0, -1)

Worksheets("sheet1").Activate
Worksheets("Sheet1").Rows(4).Delete

End Sub