Что не так в макросе

[cryingmary]

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

Sub Redesigner()
Dim InVal As Variant
Dim OutVal() As Variant
Dim j, k, i As Long
Dim NewSheet
i = 1
InVal = Selection.Formula
ReDim OutVal(1 To Selection.Count, 1 To 3)
For j = 2 To UBound(InVal, 1)
For k = 2 To UBound(InVal, 2)
If InVal(j, k) <> "" Then
OutVal(i, 1) = InVal(j, 1)
OutVal(i, 2) = InVal(1, k)
OutVal(i, 3) = InVal(j, k)
i = i + 1
End If
Next k
Next j
Set NewSheet = Worksheets.Add
NewSheet.Range("A1").Resize(UBound( OutVal, 1), 3).Value = OutVal
End Sub

Помогите дописать макрос, что бы он транформировал весь выделенный диапазон и вставлял значения, без формул.
Спасибо!

[Казанский]

Приложите XLS с примером: что есть, что надо получить.

[cryingmary]

http://ompldr.org/vZjRqYQ/%D0%BF%D1%...%B5%D1%80.xlsx


Т.е. нужно что бы из общей таблицы, данные трансформировались в "список" только там где будут стоять 1 напротив адресса. Там где пусто, строки не подтягивались. Макрос это делает, только с одной колонкой, большой диапазон данных он не отображает.

[Михаил С.]

Столбцов с адресами всегда столько (5), или может меняться?

[cryingmary]

Сообщение от Михаил С.

Столбцов с адресами всегда столько (5), или может меняться?

на данный момент их 519, но может быть и больше.

[Михаил С.]

Еще такой вопрос - "1" - это просто знак, что строка используется, или число - сколько раз строку нужно повторить?
И шапка основной таблицы постоянна, я правильно понял?

[Михаил С.]

Проверяйте.

[cryingmary]

что-то совсем не то, он генерит список под таблицей, а не на другом листе и данные совсем не те вставляет. Шапка не меняется.

[Михаил С.]

Да, чуть ошибся. В конце кода пропустил точку.
вот здесь

With Worksheets("как должно быть")
    .Cells(1, 1).Resize(k - 1, 20) = OutVal
End With

перед Cells поставьте точку

зы.
А то он "генерит" не под таблицей, а вместо таблицы, если запускать с листа "как есть".

[cryingmary]

да теперь гуд, есть 1 момент. Выдает ошибку Out of range. Реальная, рабочая область таблицы с В2:V2 а дальше идут в шапке адресса W:TU

Вниз таблица добавляется постоянно.