sub deleteCells()
Dim Ask As Integer
 Ask = MsgBox(Prompt:="Is this What you want?", _
            Buttons:=vbYesNo, Title:="Confirmation required")
                If Ask = vbYes Then
     'delete your range
activesheet.range("A1:A10").clearContents
                 Else
                 
                 MsgBox "Cancelled by user..."
                                  Exit Sub
                 End If
end sub