Attribute VB_Name = "Module2"
Sub TodellaBugistaKoodia()
1  Dim Rivi As Lng
2  Dim Summa As Long
3  Do While Rivi < 10
4    Summa = Summa + ActiveSheet.Range("A" & Rivi).Value
5  Loop
6  MsgBox Summa
End Sub