Sub SQL()
Dim myConnect, mySQL As String, myRecord As Object
Dim Data As String, strAddress As String
    Set myRecord = CreateObject("ADODB.Recordset")
 '   Set myConnect = CreateObject("ADODB.Connection")
    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")
    
    Data = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"
'        myConnect.open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
'           "Data Source=" & ThisWorkbook.FullName & ";" & _
'           "Extended Properties=""Excel 12.0;HDR=NO"""
        myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ThisWorkbook.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=NO"""

    mySQL = "DELETE * FROM " & Data & ""
'    myConnect.Execute mySQL
    myRecord.Open mySQL, myConnect

End Sub

Sub SQL()
Dim myConnect, mySQL As String
Dim Data As String, strAddress As String
    Set myConnect = CreateObject("ADODB.Connection")
    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")
    
    Data = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"

        myConnect.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ThisWorkbook.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=YES"""
    mySQL = "DELETE * FROM " & Data & ""
    myConnect.Execute mySQL
End Sub