Option Explicit

Sub ВыделитьстрокуПечать()
    Dim cellValue As Variant, i As Long
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet

    Set sourceSheet = ThisWorkbook.Sheets("база")
    Set targetSheet = ThisWorkbook.Sheets("этикетка")

    For i = 2 To sourceSheet.Cells(sourceSheet.Rows.Count, "D").End(xlUp).Row
        targetSheet.Range("A2").Value = sourceSheet.Cells(i, "E").Value
        targetSheet.Range("A4").Value = sourceSheet.Cells(i, "F").Value
        targetSheet.Range("c4").Value = sourceSheet.Cells(i, "G").Value
        targetSheet.Range("A6").Value = sourceSheet.Cells(i, "H").Value
        targetSheet.Range("c6").Value = sourceSheet.Cells(i, "I").Value
        targetSheet.Range("A8").Value = sourceSheet.Cells(i, "J").Value

        ' Отправка листа "этикетка" на печать
        targetSheet.PrintOut
    Next

    Set targetSheet = Nothing
    Set sourceSheet = Nothing
End Sub

Dim i As Long, j As Long, tng As Range, x As Long
' Ваш остальной код здесь 
Set tng = Nothing 
End Sub

Option Explicit

Sub Main()
    Dim Obj As Object, ws As Worksheet
    Static checkBoxesChecked As Boolean

    If Not checkBoxesChecked Then

        For Each Obj In ActiveSheet.DrawingObjects
            If Obj.Name Like "Check Box*" Then Obj.Value = True
        Next

        ActiveSheet.Shapes("ButtOnOff").TextFrame.Characters.Text = "On"
        checkBoxesChecked = True
    Else

        For Each Obj In ActiveSheet.DrawingObjects
            If Obj.Name Like "Check Box*" Then Obj.Value = False
        Next

        ActiveSheet.Shapes("ButtOnOff").TextFrame.Characters.Text = "Off"
        checkBoxesChecked = False
    End If

End Sub

Option Explicit

Sub Рандом1()
    Dim iLastRow As Long, startRow As Long
    Dim countFilled As Long, i As Long
    startRow = 5
    countFilled = 0

    With ThisWorkbook.Worksheets("Лист1")
        iLastRow = .Cells(.Rows.Count, 76).End(xlUp).Row
        
        For i = 6 To iLastRow

            If Not IsEmpty(.Cells(i, "BX")) Then
                countFilled = countFilled + 1
            End If

        Next i

        If countFilled < 132 Then
            iLastRow = countFilled + startRow
            .Cells(iLastRow, 76).Value = 1
        Else
            MsgBox "Превышен лимит для Рандома! ", vbExclamation
            Exit Sub
        End If

    End With

End Sub

Option Explicit

Sub Рандом1()
    Dim iLastRow As Long, startRow As Long
    startRow = 5

    With ThisWorkbook.Worksheets("Лист1")
        iLastRow = .Cells(.Rows.Count, 76).End(xlUp).Row

        If startRow > iLastRow Then
            '            MsgBox iLastRow
            .Cells(startRow + 1, 76).Value = 1

        ElseIf iLastRow > startRow And iLastRow < 12 Then
            .Cells(iLastRow + 1, 76).Value = 1
        Else
            MsgBox "Превышен лимит для Рандома! ", vbExclamation
            Exit Sub
        End If

    End With

End Sub