VBA script select specific column - excel

Question

I have a little script that gets data form a website.
Sub importmatches()
Dim QT As QueryTable
Dim URL As String
URL = "https://www.soccerstats.com/matches.asp?matchday=6"
Set QT = Sheet1.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Sheet1.Range("A2"))
With QT
.RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = False
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "7"
.Refresh
End With
End Sub
But let's say I only want column 1,4 and 7. Tried everything that I could find but nothing seems to work.

Answer 1

The following should get you started.
Read the comments
Public Sub importMatches()
Dim QT As QueryTable
Dim URL As String
URL = "https://www.soccerstats.com/matches.asp?matchday=6"
Set QT = Sheet1.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Sheet1.Range("B2"))
With QT
.RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = False
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "7"
.BackgroundQuery = False
.Refresh
End With
' Set a reference to the result range
Dim qtResultRange As Range
Set qtResultRange = QT.ResultRange
' Define the column numbers to delete
Dim colsToDelete As Variant
colsToDelete = Array(1, 4, 7)
' Delete from end to beginning
Dim counter As Long
For counter = UBound(colsToDelete) To 0 Step -1
qtResultRange.Columns(colsToDelete(counter)).EntireColumn.Delete
Next counter
End Sub
PS. I suggest that you use Power Query instead of the legacy MS Query
Let me know if it works