Hola necesito bajar de una página web a excel

Hola necesito bajar varias paginas de un sitio a Excel 2007. Hasta ahora lo vengo haciendo manual pero tengo como 1000 codigos diferentes. El problema que tengo es que estoy buscando una forma poder cambiar "MAA001" o "MKM100" automaticamente. Tengo los codigos en una lista en excel.
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.moneycontrol.com/india/mutualfunds/mfinfo/portfolio_holdings/MAA001" _
        , Destination:=Range("$A$1"))
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .Refresh BackgroundQuery:=False
    End With
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.moneycontrol.com/india/mutualfunds/mfinfo/portfolio_holdings/MKM100" _
        , Destination:=Range("$A$126"))
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .Refresh BackgroundQuery:=False
    End With
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.moneycontrol.com/india/mutualfunds/mfinfo/portfolio_holdings/MAA003" _
        , Destination:=Range("$A$251"))
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .Refresh BackgroundQuery:=False
    End With
Como tengo que hacer para que agarre los codigos de la lista de excel automaticamente y asi me pegue todos los datos de cada pagina una debajo de otra? Gracias