I WANT TO DELETE ROWS IN MY PASSWORD PROTECTED SHEET FOR WHICH I AM USING MY BELOW CODE

Sub Button4_Click()
ActiveSheet.Unprotect Password:="PASSWORD"
    Dim RowNum As Long
    RowNum = InputBox("please enter the row number of the row you wish to delete.")
    Rows(RowNum).EntireRow.Delete
    ActiveSheet.Protect Password:="PASSWORD"
End Sub
PLZ HELP IN MODIFYING THE ABOVE CODE SO THAT I CAN DELETE RANGE OF ROWS

FOR EX: MY CODE SHOULD ASK "PLEASE ENTER THE ROW NO. RANGE YOU WISH TO DELTE" AND SHOULD GIVE TWO BLOCK FROM.... TO......
THAT MEANS IF BOTH ARE SAME ONE ROW WILL BE DELETED AND IF NOT SAME THAT RANGE WILL BE DELETED

PLZ IF POSSIBLE ALSO DO ONE MORE THING IS POASSIBLE :AFTER ENTERING THE FROM.... TO.... ROW NOS WHEN WE PRESS OK BUTTON IT SHOLUD ASK ARE YOU SURE

IF WE PRESS YES THEN IT EXECUTE OTHERWISE GIVES YOU ANOTHER CHANCES


I KNOW REQ ARE GREAT BUT FOR YOU PEOPLES ITS A TINY JOB

PLZ PLZ PLZ HELP ME