Puoi usare proprio additem invece...

codice:
 
for i=2 to 500
 miscela.additem sheets(2).cells(i,1)
next