Jak udělat součet buněk ve VBA?

[atari]

Ve VBA používám pro součty uvedený kód. (Ten mi dosadí do buňky L2 vzorec "=SUMA(L4:L65002)"). Jenže bych potřeboval místo té buňky L65002 dosadit proměnnou (Dim pocetradku As Integer), která mi určuje, kolik je obsazených řádků. Je možné toto nějak udělat?
A nebo by byla možná druhá varianta, provést součet řádků ve VBA a pak jen do buňky L2 dosadit výsledek.

Kód: Vybrat vše

Range("L2").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[65000]C)"

Samozřejmě bych uměl do cyklu FOR NEXT vzít buňku po buňce s posčítat. Jenže to pak při větších objemech dosti zpomaluje program. Chtěl bych nějaké elegantnější řešení.

[navstevnik]

Napr takhle:

Kód: Vybrat vše

Dim Blk As Range
Set Blk = ActiveSheet.Range("d3:d7")
Debug.Print WorksheetFunction.Sum(Blk)

pripadne muzes Blk definovat takto:

Kód: Vybrat vše

Set Blk = ActiveSheet.Range("d3")
Set Blk = Blk.Resize(PocRadku, 1)

[atari]

Díky moc. To je přesně ono.