no moznosti je viac
napr:
Sub Macro1()
For x = 2 To Cells(2, 2).End(xlDown).Row
aSum = aSum + Cells(x, 2)
Next
MsgBox aSum
End Subcitovat
napr:
Sub Macro1()
For x = 2 To Cells(2, 2).End(xlDown).Row
aSum = aSum + Cells(x, 2)
Next
MsgBox aSum
End Subcitovat