Select the first 25 items of a certain column in SAP GUI whose name I know - vba

Question

I'm trying to select the first 25 items of a certain column in SAP GUI whose name I know. I recorded a script and it came like that shown below.
As you can see the name of the columns are ST_RESERVA, FEVOR, AUFNR, MATNR, ZAGRLOGISTICO and MATNR.
The code works fine but I think I could simplify this using FOR with the rows going to 1 until 25 and the column fixed. Any ideas?
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject app, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").setCurrentCell 10,"ST_RESERVA"
set coll1 = app.createGuiCollection
coll1.add "10,ST_RESERVA"
coll1.add "10,FEVOR"
coll1.add "10,AUFNR"
coll1.add "10,MATNR"
coll1.add "10,ZAGRLOGISTICO"
coll1.add "10,MAKTX"
coll1.add "11,ST_RESERVA"
coll1.add "11,FEVOR"
coll1.add "11,AUFNR"
coll1.add "11,MATNR"
coll1.add "11,ZAGRLOGISTICO"
coll1.add "11,MAKTX"
coll1.add "12,ST_RESERVA"
coll1.add "12,FEVOR"
coll1.add "12,AUFNR"
coll1.add "12,MATNR"
coll1.add "12,ZAGRLOGISTICO"
coll1.add "12,MAKTX"
coll1.add "13,ST_RESERVA"
coll1.add "13,FEVOR"
coll1.add "13,AUFNR"
coll1.add "13,MATNR"
' and the list goes on until the first 25 items are selected from the tables above.
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").selectedCells = coll1
set coll1 = nothing