Private Sub TextBox1_Change()
    If Len(TextBox1.Text) >=  12  Then
        Barcode1.Text = Left(TextBox1.Text,  12 )
        Barcode1.CopyToClipboard
        PasteBarCode
        ActiveCell.EntireColumn.ColumnWidth =  17     ' подгонка ячейки под размер barcode
        ActiveCell.EntireRow.RowHeight =  40            ' подгонка ячейки под размер  barcode
        ActiveSheet.Paste
        Count = Count +  1 
        If Count =  20  Then                          'если 20-ый, то с новой колонки
            ActiveCell.Offset(- 19 ,  1 ).Select
            Count =  0 
        Else
            ActiveCell.Offset( 1 ,  0 ).Select
        End If
    End If
End Sub