[HolyDel]

Worksheets(1).Activate
summ=0
for i=1 to 60
a=rnd(100)
Worksheets(1).cells(i,1)=a
if (i-((i/2)*2))=0 then summ=summ+a
next
Worksheets(1).cells(2,2)=summ

писалось в браузере так что хз.