"Are You Sure" message

I have recorded a macro to clear contents of selected ranges of cells in a worksheet and assigned it to a radio button. It works perfectly but once pressing the radio button and initiating the macro there is no turning back. I would like to insert a warning message, such as "Are you sure?", to have to be agreed to in order for the macro to proceed. Any suggestions?

Here is the recorded macro. I had to record it as I am lacking in VBA skills.

Sub DelResults()
'
' DelResults Macro
' Clear contents
'
' Keyboard Shortcut: Option+Cmd+x
'

Range("D6:E22").Select
Selection.ClearContents
Range("F23:I23").Select
Selection.ClearContents
Range("D27:E43").Select
Selection.ClearContents
Range("F44:I44").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=26
Range("D48:E64").Select
Selection.ClearContents
Range("F65:I65").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=32
Range("D69:E85").Select
Selection.ClearContents
Range("F86:I86").Select
Selection.ClearContents
Range("D90:E106").Select
Selection.ClearContents
Range("F107:I107").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=42
Range("D111:E127").Select
Selection.ClearContents
Range("F128:I128").Select
Selection.ClearContents
Range("D132:E148").Select
Selection.ClearContents
Range("F149:I149").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=23
Range("D153:E169").Select
Selection.ClearContents
Range("F170:I170").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=25
Range("D174:E190").Select
Selection.ClearContents
Range("F191:I191").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=17
Range("D195:E211").Select
Selection.ClearContents
Range("F212:I212").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=37
Range("D216:E232").Select
Selection.ClearContents
Range("F233:I233").Select
Selection.ClearContents
Range("D237:E253").Select
Selection.ClearContents
Range("F254:I254").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=23
Range("D258:E274").Select
Selection.ClearContents
Range("F275:I275").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=25
Range("D279:E295").Select
Selection.ClearContents
Range("F296:I296").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=23
Range("D300:E316").Select
Selection.ClearContents
Range("F317:I317").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=29
Range("D321:E337").Select
Selection.ClearContents
Range("F338:I338").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-441
Range("A8").Select

End Sub

Thanks so much. I'm learning.