Zdravim, melo by to vypadat takhle nejak:

x = ActiveCell.Row
a = MsgBox("Číslo řádku je " & x, vbInformation, "Zpráva")

k tomu předchozímu to můžeš napsat takto:
Private Sub CommandButton1_Click()
x = Sheets("A").Range("A1").Value
Sheets("B").Range("A5") = x
End Sub

Tomu se mi nechce věřit. Pokud máš opravdu pojmenované listy A a B pak makro načte hodnotu z listu A buňky A1 do listu B buňky A5

Tak to by melo vypadat takto:
Private Sub CommandButton1_Click()
Sheets("Adresa").Select
x = Range("A1").Value
Sheets("Form").Select
Range("A5") = x
End sub

No jde to. Bohuzel z tveho popisu to neni uplne jasne, ale to co si napsal splnuje nasledujici: Sub makro() Sheets("S2").Select x = ActiveCell.Row Range("A" & x & ",C" & x & ",E" & x & ",G" & x).Copy Sheets("S1")...

nemohl by si poslat alespoň malý příklad?

Pokud nastavíš: horní okraj 0,0cm; vnější okraj 0,0cm; Svislá rozteč 4,23cm; Vodorovná rozteč 10,5cm;Velikost stránky A4;výška štítku 4,23;Šířka štítku 10,5cm;Počet vodorovně 2;Počet svisle 7;
pak by to mělo vytvořit přesně to co chceš.
Jirka

No možná že výsečový graf by se na to mohl hodit. Jirka

Nebylo by jednodušší to počítat skalárním součinem? Myslím tím takto:
=SOUČIN.SKALÁRNÍ(C2:R2;$C$1:$R$1)
Jirka