Почему некоторые ячейки листа с 20 заполняются пустыми значениями?

Private Sub VyborIzMassiva()
 
    l = 1
    счетчик = 1
    Nсчетчика = 1
    control = 0
 
    Workbooks.Add
    Listy = Worksheets.Count
    For Each счет In MassivVsexDannyx(control)(0)
        время = 0
        kolonka = 2
        Range('A2').Select
        
'       формирование первого столбца в каждом листе
        For stolbec = 0 To BSCs - 1
            For Each br In MassivVsexDannyx(stolbec)(0)(0)
                ActiveCell.Value = br
                ActiveCell.Offset(1, 0).Select
            Next br
        Next stolbec
 
'       формирование остальных столбцов в листе
        For Each часа In MassivVsexDannyx(control)
            Cells(1, kolonka).Select
            ActiveCell.Value = IntervalVremeni(kolonka - 2)
            For control = 0 To BSCs - 1
                For Each данные In MassivVsexDannyx(control)(время)(счетчик)
                    ActiveCell.Offset(1, 0).Select
                    ActiveCell.Value = данные
                Next данные
            Next control
            время = время + 1
            kolonka = kolonka + 1
        Next часа
        Nсчетчика = Nсчетчика + 1
        счетчик = счетчик + 1
    Next счет
End Sub