Mensaje de confirmación de un proceso

Muy buenas a todos los foristas y en especial a Héctor Miguel a quien
me dirijo:

Te agradecería en base a la sintaxis del ejemplo a mi consulta
anterior, que antes de realizar el proceso de copiar y pegar
determinadas celdas, me apareciera un mensaje, en la que confirme ó
deniegue el proceso de la siguiente sintaxis:

Sub Botón12_Haga_clic_en()
Dim Consultas As Byte
Consultas = Application.CountA(Range("c17:c31"))
If Consultas = 0 Then Exit Sub
With Worksheets("KARDEX").Range("a65536").End(xlUp).Offset(1, 5)
.Resize(Consultas).Value = Range("c17").Resize(Consultas).Value
.Offset(, -4).Resize(Consultas, 4).Value = Array( _
Range("D1").Value, Range("J8").Value, Range("F1").Value,
Range("G1").Value)
With .Offset(, -5).Resize(Consultas)
.Value = Application.Max(.Parent.Range("a:a")) + 1
End With
End With
Range("c17").Resize(Consultas).ClearContents
Range("D1,F1,G1,I1").ClearContents
End Sub


Saludos,

Carlos Carnero Gálvez