Repeated Web Query to fill a column with data

I had suggested looking at the other templates because I didn't know if you were simply trying to reinvent the wheel. Apparently you have specific requirements the other templates don't quite fill.

Give this a try with your example workbook. Format the ticker list score column as percent (or however you prefer).

Sub Score_Ticker_List()
    
    Dim Ticker As Range
    
    'Loop through Ticker list
    For Each Ticker In Sheets("list").Range("A2", Sheets("list").Range("A" & Rows.Count).End(xlUp))
    
        'Copy Ticker
        Sheets("query fields").Range("B1").Value = Ticker.Value
        Sheets("score card").Range("C2").Value = Ticker.Value
        
        'Refresh querty tables
        Sheets("query fields").QueryTables(1).Refresh BackgroundQuery:=False
        Sheets("query fields").QueryTables(2).Refresh BackgroundQuery:=False
        
        'copy updated ticker score to list
        Ticker.Offset(, 1).Value = Sheets("score card").Range("F2").Value
        
    Next Ticker
    
End Sub