If IsNull(resultJSON(1)("result")) Then

Sub DelColumns()
  avFiles = Application.GetOpenFilename("Excel Files (*.xl*),*.xl*", , "Choose File", "Open", False)
  Workbooks.Open (avFiles)
    Dim Application_Calculation As Long
    Application_Calculation = Application.Calculation
    Application.Calculation = xlCalculationManual
 
    Dim sh As Worksheet
    Dim rr As Range
    Dim lo As ListObject
    For Each sh In ActiveWorkbook.Worksheets
        Set rr = sh.Columns("J:N")
         
        If sh.ListObjects.Count > 1 Then
            For Each lo In sh.ListObjects
                Do
                    If Intersect(rr, lo.Range) Is Nothing Then Exit Do
                    If lo.Range.Columns.Count = 1 Then Exit Do
                    lo.Resize lo.Range.Columns(1).Resize(, lo.Range.Columns.Count - 1)
                Loop
                If Not Intersect(rr, lo.Range) Is Nothing Then lo.Delete
            Next
        End If
        rr.Delete
    Next
     
    Application.Calculation = Application_Calculation
End Sub