如何用宏清除指定工作表中第二行以下的所有内容

请教各位老大们：
  我想清除Sheet2中第二行以下的全部内容，并有MSGBOX提示是否确定删除，点确定删除，否则返回。那位高手给我
个代码阿，感激不尽！

解决方案1：

Sub 清除数值()

Sheets("Sheet2").Range("3:65536").ClearContents

End Sub

回复 2楼 LangQueS 的帖子

老大，能不能帮我写个删除确认的阿？确认后再删除，谢谢了哈！

解决方案2

这段代码就行

Public Sub del_row2()

    Dim rng As Range, i As Integer

    Set rng = Sheet2.Rows("2:65536")

    i = MsgBox(prompt:="是否删除第二行以下的内容", Buttons:=vbYesNoCancel)

    If i = 6 Then

    rng.Cells.Clear

    End If

End Sub