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

[Bape}l{ka]

то что голубеньким ("должно быть" - это как изменились все данные)

[Hugo121]

Ну дык...

            For Each j In Ar0()
                ActiveSheet.Cells(Rowww, (MaxCol + Ar0(j))).Value = Ar0(j)
            Next j

В этом куске j принимает не порядковый номер элемента, а его значение.
Поэтому на Ar0(j) и ошибка.

Исправил так

                ActiveSheet.Cells(Rowww, (MaxCol + j)).Value = j

И что-то заработало... до

Selection.Range.Offset

[nerv]

выделяйте A4:E7

Sub io()
Dim x As Object
With Selection
    .Offset(, .Columns.Count).EntireColumn.Insert
    .Offset(, .Columns.Count).Rows(0).Value = .EntireColumn.Rows(3).Value
    .Offset(, .Columns.Count).Rows(-1).Value = .EntireColumn.Rows(2).Value
    .Offset(, .Columns.Count).Rows(-1).Replace "Q", "e"
    For Each x In .Cells: Cells(x.Row, .Columns.Count + x).Value = x.Value: Next
End With
End Sub

[Bape}l{ka]

мне и нужно значение элемента массива, а не его порядковый номер

nerv, спасибо большое, вы гений Т_Т теперь буду разбираться дальше)))
а подскажите пожалуйста, вот это вы что сделали, скопировали?:

.Offset(, .Columns.Count).Rows(-1).Value = .EntireColumn.Rows(2).Value

у меня всегда так, если чво приходит в голову, то как-то сложно получается в реализации =ь

[nerv]

Bape}l{ka, перенесли значения.

nerv, спасибо большое, вы гений Т_Т

Эт меня Hugo учил ^_^

[Bape}l{ka]

И что-то заработало... до
Selection.Range.Offset

ооо, с Вашими, Hugo, поправками все заработало!!! и правильно =ь

p.s.:
Selection.Offset (1, 0).Select

[Hugo121]

И хорошо.
Там, где удаляете строки (да вообще всюду), есть смысл отключать обновление экрана, ну и пересчёт, если есть формулы - будет быстрее работать и не будет мигать.