Помогите доделать макрос

[Djo_Oker]

Добрый день!

Дорогие друзья,

Очень нужна помощь в доработке макроса, который приведен ниже (так же у теме уже приложен файл "Пример", где уже можно редактировать макрос и сразу его тестить):

Sub Consolidation()

Const mainWS As String = "?aano?"
Const rangeColumn As String = "A:B"

Dim meter As Long, i As Long, stepmeter As Integer

stepmeter = ThisWorkbook.Worksheets(mainWS).Ran ge(rangeColumn).Columns.Count
meter = 1

For i = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(i).Name <> mainWS Then
ThisWorkbook.Worksheets(i).Range(ra ngeColumn).Copy
ThisWorkbook.Worksheets(mainWS).Col umns(meter).Select
ActiveSheet.Paste
meter = meter + stepmeter
End If
Next

End Sub

Доработка нужна в следующем:
Сейчас макрос только собирает определенные столбцы со всех листов на указанный.

Нужно:
1) чтобы он начинал копировать столбцы, например, с 3 или 4 листа (нужно, чтобы порядковое значение можно было задавать руками в коде) и до бесконечности.
2) чтобы он начинал вставлять столбцы на указанный лист, например, пропуская три первых столбца и вниз на две строки.
3) чтобы копируемые столбцы вставлялись на указанный лист с пропуском, например, один столбец (т.е. он копирует столбец с первого листа, вставляет его на указанный лист, делает пропуск один столбец и вставляет данные скопированные со следующего листа).

Очень прошу помочь понимающих в этом людей.
Всем заранее спасибо! Очень надеюсь на вашу помощь!

[IgorGO]

3 или 4 листа ... задавать руками в коде) и до бесконечности

Чак Норрис единственный в мире человек, который досчитал до бесконечности... дважды

Sub Consolidation()
  Const mainWS As String = "Реестр"
  Const rangeColumn As String = "A:B"
  Dim i As Long, stepmeter As Integer, r As Long, c As Long
  stepmeter = Range(rangeColumn).Columns.Count:  r = 1:  c = 1
  For i = 1 To ThisWorkbook.Worksheets.Count
    If i > ActiveSheet.Index Then
      Application.Intersect(Worksheets(i).UsedRange, Worksheets(i).Range(rangeColumn)).Copy Worksheets(mainWS).Cells(r, c)
      c = c + stepmeter + 1:  r = r + 2
    End If
  Next
End Sub

[Djo_Oker]

Огромное тебе спасибо!!!! Работает точно так, как я хотел.
Только вот столкнулся с новой проблемой. =(
В тех листах откуда макрос берет столбцы есть формулы.
После копирования в активный лист они (естественно) сбиваются после его обновления.
Как сделать так, чтобы макрос копировал столбцы и вставлял их с дополнительным условием вставки "только значения" ("123")?
Если это получится реализовать, то это спасет меня и еще с 10-ток людей от длительных мучений с таблицами....

[IgorGO]

...
Application.Intersect(Worksheets(i).UsedRange, Worksheets(i).Range(rangeColumn)).Copy 
Worksheets(mainWS).Cells(r, c).PasteSpecial Paste:=xlPasteValues
...

[Djo_Oker]

Макрос с такими изменениями не срабатывает, выдает ошибку.
Приложил к ответу скрин (НОВЫЙ).
Может быть я что-то не так вставил?

[DiemonStar]

несколько мелковато - вообще ничего не видно

[Djo_Oker]

Сообщение от DiemonStar

несколько мелковато - вообще ничего не видно

Приложил новый скрин.
Спасибо и тебе за участие в теме)

[IgorGO]

смотрим внимательнее.
вообще-то у меня в две строки написано или после Copy: (двоеточие)

[Djo_Oker]

Ок, я не думал, что это настолько важно.
Исправил, и все пошло, как нужно.
Еще раз огромное спасибо.
Благодарность кину на 41001804815208

Тему можно считать закрытой.

[IgorGO]

Спасибо!!!
деньги поступили. Обращайтесь при случае.
об этом не говорил: макрос обрабатывает все листы книги, которые находяться за листом "Реестр"