VBA Delete syntax

Option Explicit
' Erase data

Private Sub CommandButton1_Click ()
Dim Qknum as Integer

' Select Yes or no to confirm delete data
' In dialog box type 16+4:16 refers to the icon type is the stop icon, 4 refers to the button that appears is the "no" button
If (MsgBox ("OK to delete all data?", vbcritical + 16 + 4, "warm tip") = vbno) Then

Exit Sub

End If
' The data to be emptied starts the line
Qknum = Sheet1.UsedRange.EntireRow.Count

If qknum > 5 Then

Sheet1.range ("6:" & CStr (Qknum)). Entirerow.delete

End If
End Sub

VBA Delete syntax