Собрать выборочные столбцы с нескольких листов на один лист.

[Enchanter]

Доброго времени суток. Суть проблемы такова - имеется 5 листов, в каждом по 10-15 столбцов, необходимо из каждой таблицы выбрать по несколько столбцов и добавить их подряд в отдельную таблицу.
Пользуюсь данным макросом, но он собирает информацию со всех листов, и с диапазона страниц.

Sub Consolidation()

Const mainWS As String = "Лист1"
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

Вопрос в следующем - как его подправить так, чтобы можно было делать выборку с каких отдельных страниц и с каких столбцов собирать?