Get to know us

Option Explicit

Private Sub Button4_Click() ' Or CommandButton4_Click, match your button's name

Dim targetWs As Worksheet

Dim clearConfirm As VbMsgBoxResult

On Error GoTo ClearErrorHandler

' Set the target worksheet to the currently active sheet

Set targetWs = ThisWorkbook.ActiveSheet

' Ask for confirmation (recommended for clearing data)

' --- *** CORRECTED RANGE IN MESSAGE *** ---

clearConfirm = MsgBox("Are you sure you want to clear the imported data (Columns A:O) and the spool results (R4:X18)?", _

vbYesNo + vbQuestion + vbDefaultButton2, _

"Confirm Clear")

If clearConfirm = vbYes Then

Application.ScreenUpdating = False ' Speed up clearing

' Clear data columns A through O entirely

targetWs.Columns("A:O").ClearContents

' Clear the specific spool results range R4:X18 <--- *** CORRECTED CLEAR RANGE ***

targetWs.Range("R4:X18").ClearContents

Application.ScreenUpdating = True

MsgBox "Data cleared successfully.", vbInformation

Else

MsgBox "Clear operation cancelled.", vbInformation

End If

Set targetWs = Nothing ' Clean up

Exit Sub

ClearErrorHandler:

MsgBox "An error occurred while trying to clear data:" & vbCrLf & Err.Description, vbCritical

Application.ScreenUpdating = True ' Ensure screen updating is back on

Set targetWs = Nothing ' Clean up

End Sub