subscript out of range - как найти ошибку Т_Т

[Bape}l{ka]

привет всем завсегдатаям)

пытаюсь создать вроде простенький макрос

дано: в строку записаны значения по ячейкам.
задача:
- после определенного диапазона (Selection) надо вставить столько же столбцов, сколько выделено (РАБОТАЕТ)
- собрать массив значений из выделенного диапазона (НЕИЗВЕСТНО)
- расставить эти значения в созданных столбцах таким образом, что если в массиве значение "3", то оно должно быть вставлено в новый 3-й по счету столбец, если "5", то в 5-ый и т.д. в той же строке (ОШИБКА)

помогите разобраться, пожалуйста Т_Т
код и пример прилагаю Расстановка_пример.rar

Public Ar0() As Integer, j As Variant
Public iCell As Range
Public Rowww As Long, Colmm As Long
Sub EachBrandOnColumns()
    
    Call VBABrand.Subs_.DefinitionSelectionRowCol
    
    'добавление столбцов для нов. вопроса
    For i = 1 To ColmCount
        Columns(Selection.Column + ColmCount).Insert
    Next
    
    CellCount = 0
    For Rowww = FirstRow To MaxRow
        'Call CreateArray
        
        'Определение пустых диапазонов
        '(считаем кол-во ячеек в диапазоне, если все пустые, то 99 +красим)
        For Colmm = FirstCol To MaxCol
            If IsEmpty(Cells(Rowww, Colmm)) Then CellCount = CellCount + 1
            If ColmCount = CellCount Then
                Cells(Rowww, FirstCol).Value = 99
            End If
        Next Colmm
        CellCount = 0
        
        'формируем массив
        ReDim Ar0(j)
        For Each iCell In ActiveSheet.Range(Cells(Rowww, FirstCol), Cells(Rowww, MaxCol))
            If Not IsEmpty(iCell) Then
                ReDim Preserve Ar0(j)
                Ar0(j) = iCell.Value
                j = j + 1
            End If
        Next iCell
        
        'расставляем массив
        If Ar0(0) <> 99 And Ar0(0) <> 98 And Ar0(0) <> 97 Then
            For Each j In Ar0()
                ActiveSheet.Cells(Rowww, (MaxCol + Ar0(j))).Value = Ar0(j)  'ОШИБКА
            Next j
        Else
            Cells(Rowww, MaxCol + 1).Interior.Color.Index = 5
        End If
        Selection.Range.Offset
    Next Rowww
    
End Sub

[nerv]

Bape}l{ka, не обижайтесь, но у Вас там какой-то велосипед) Директив понаставили, куда столько? Объявляете переменные как "публичные", при этом ставите Option Private Module. Либо это часть какого-то большого проекта, либо...))) Могу только посоветовать Вам пересмотреть написание программного кода с точки зрения объявления переменных, общей логики и синтаксиса.

Объясните подробней, что нужно.

- после определенного диапазона надо вставить столбцы (РАБОТАЕТ)

Какого диапазона? Сколько столбцов?

собрать массив этих значений (НЕИЗВЕСТНО)

Каких этих?

Может попытаться двигаться в этом направлении:

Sub io()
Dim v
With Selection ' При условии, что диапазон 1
    .Parent.Columns(.Column + .Columns.Count).Insert ' столбец
    v = .Value ' массив (если выделено > 1 ячейки)
End With
End Sub

[Bape}l{ka]

Какого диапазона? Сколько столбцов?

столбцов каждый раз разное количество, но в данном случае их 5 (выделены желтым в примере) - это Selection

собрать массив этих значений (НЕИЗВЕСТНО)
Каких этих?

сори, недоглядела..собственно тех значений, которые в выделенном диапазоне

собственно, в данном случае меня интересует выделенная красным строчка с ошибкой, что там неправильно, с синтаксисом что-то??

For Rowww = FirstRow to MaxRow
        'формируем массив
        ReDim Ar0(j)
        For Each iCell In ActiveSheet.Range(Cells(Rowww, FirstCol), Cells(Rowww, MaxCol))
            If Not IsEmpty(iCell) Then
                ReDim Preserve Ar0(j)
                Ar0(j) = iCell.Value
                j = j + 1
            End If
        Next iCell
        
        'расставляем массив
        If Ar0(0) <> 99 And Ar0(0) <> 98 And Ar0(0) <> 97 Then
            For Each j In Ar0()
                ActiveSheet.Cells(Rowww, (MaxCol + Ar0(j))).Value = Ar0(j)  'ОШИБКА
            Next j
        Else
            Cells(Rowww, MaxCol + 1).Interior.Color.Index = 5
        End If
Next Rowww

з.ы.: скорее всего это реально велосипед + часть бОльшего проекта, поэтому Public и прочее... но пока как могу =ь
с массивами у меня дело туго идет, не хватает реальных примеров, при этом мне понятных =ь
может задачу можно реализовать как-то попроще, буду благодарна за предложения

[nerv]

- после определенного диапазона (Selection) надо вставить столько же столбцов, сколько выделено (РАБОТАЕТ)
- собрать массив значений из выделенного диапазона (НЕИЗВЕСТНО)

Первые два пункта можно реализовать так. Дальше что?

Sub io()
Dim v
With Selection ' При условии, что диапазон 1
    .Offset(, .Columns.Count).EntireColumn.Insert
    v = .Value ' массив (если выделено > 1 ячейки)
End With
End Sub

[Bape}l{ka]

3- расставить значения из массива в созданных столбцах таким образом, что если в массиве значение "3", то оно должно быть вставлено в новый 3-й по счету столбец, если "5", то в 5-ый и т.д. в той же строке, если массив не пустой

п.с.: не знала, что массив можно вот так просто собрать О.о

[nerv]

Bape}l{ka, я и сам не знал) По 3-ему вопросу: лучше приложите файл как есть и как должно быть, плюс оставьте то выделение, с кот. предполагается работать.

[Bape}l{ka]

вот примерРасстановка_пример2.rar

[nerv]

Так, что ли? : )

Sub io()
With Selection
    .Offset(, .Columns.Count).EntireColumn.Insert
    .Offset(, .Columns.Count).Value = .Value
End With
End Sub

[Bape}l{ka]

нет, не так.. у вас просто копируется выделение в новые столбцы
как раз моя запись, которая не работает, была призвана организовать нужную расстановку

Cells(, MaxCol + Ar(j)).Value = Ar(j)

MaxCol - это № последней колонки у выделенного диапазона

[nerv]

Bape}l{ka, по приведенному примеру не вижу разницы между тем, что сделал я и Вашим "должно быть".

как раз моя запись, которая не работает, была призвана организовать нужную расстановку

какую? Объясняйте, лично мне ни чего не понятно. Или ждите телепатов)