![Opičák](./pictures/avatars/510d5bce934ee.jpg)
Sub součetA()
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox "Součet sloupce A:A je " & Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(LastRow, 1)))
End Subcitovat
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox "Součet sloupce A:A je " & Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(LastRow, 1)))
End Subcitovat