A Munka1 lap A1 cellájába írtam a darabszámot (120-at).

A Munka2 lapon vannak a nyomtatandó címkék, a példában mind az A oszlopban.

Sub Nyomt_ter()
    Dim usor As Integer
    
    Sheets("Munka2").Select
    Cells.Interior.ColorIndex = xlAutomatic  ' az előző terület színének visszaállítása
    usor = Sheets("Munka1").Cells(1).Value
    ActiveSheet.PageSetup.PrintArea = "$A$1:$A" & usor
    Range("A1:A" & usor).Interior.ColorIndex = 6
End Sub

A makró a Munka!A1 cellájában található számnak megfelelő sort jelöl ki nyomtatásra, és a hátterüket sárgára festi. Szerintem a színezés elé kellene tenni a nyomtatási parancsot, hacsak nem színes címkéket akarsz nyomtatni.

Ha a címkék a Munka2 lapon több oszlopban vannak, akkor az usor változót az oszlopok számával osztani kell, és természetesen a PrintArea is ennek megfelelően módosul.