
Jelikož tam rozsah definuješ numericky, tak musíš využít "Range".
P.
Např. takto:
Range(Columns(Sloupec), Columns(Sloupec + 1)).Groupnebo
Range(Cells(, Sloupec), Cells(, Sloupec + 1)).Group
P.
Např. takto:
Range(Columns(Sloupec), Columns(Sloupec + 1)).Groupnebo
Range(Cells(, Sloupec), Cells(, Sloupec + 1)).Group