Bana vbasic gibi geldi,
adodb nesnesi kullanacaksın, Mika Team burda giriş bilgisi var.
döngü kuracaksın, do while not adodc1.recordset.EndOfFile //* yanlış olabilir
değişken kullanacaksın, her seferinde +1 olacak
adodc.recordset.addnew
adodc1.recordset.fields("Eklemek istediğin hücrenin adı") = list1.listindex(değişken)
değişken = değişken + 1
loop

tam kodlarını yazmıyorum, çünkü bu sana yarardan çok zarar verir, mantığını öğrenmen çok daha iyi