Absolutně zapomínáte na písmenka R a C
Moc pěkný kód to není, je to pouze upravený ten váš
radek = 2
LC = 7
prvni_sloupec = 2
ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R" & radek & "C" & prvni_sloupec & ":R" & radek & "C" & LC & ",RC[" & -(LC - prvni_sloupec + 1) & "]:RC[" & -1 & "])"
ActiveCell.Offset(1, 0).Selectcitovat
Moc pěkný kód to není, je to pouze upravený ten váš
radek = 2
LC = 7
prvni_sloupec = 2
ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R" & radek & "C" & prvni_sloupec & ":R" & radek & "C" & LC & ",RC[" & -(LC - prvni_sloupec + 1) & "]:RC[" & -1 & "])"
ActiveCell.Offset(1, 0).Selectcitovat