So I have fixed up the code so it basically does what my goal was. The 1 issue is that every time Excel stops responding at a different point while it's "Connecting to the web...". I'm not sure if I should be clearing up the memory each loop, or there is some other problem but any help would be appreciated. Thanks.

     
        Sub Loops()
    Dim i As Long
    
        For i = 3 To 269
        Sheets("Links").Select
     With ActiveSheet.QueryTables.Add(Connection:="URL;" & Range("$B$" & i).Value, Destination:=Range("$G$1"))
        .Name = Range("B" & i).Value
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2,3,7"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
        Sheets("Links").Select
        Range("G1:AG54").Select
        Selection.copy
        Sheets("Results").Select
        Range("B1").Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Sheets("Links").Select
        Range("A" & i).Select
        Selection.copy
        Sheets("Summary").Select
        Range("B2:B3").Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Sheets("Summary").Select
        Range("A2:AK3").Select
        Selection.copy
        Range("A" & 2 * i).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Next i
        
End Sub