Преобразование массива

[wtb]

Добрый день!
Есть такая задачка: в прикрепленном файле массив. Первой его ячейкой является L3. Первые 2 строки сверху и столбцы A-K - это "шапки".
Нужен скрипт, который при запуске ищет непустые ячейки в массиве и когда находит, то создает на втором листе строку, в которую заносит
1. значения из столбцов B,С,D,E,F, находящиеся в строке найденной непустой ячейки
2. значение из 1-ой строки столбца, в котором находится непустая ячейка
3. значение из самой ячейки
Таким образом на второй странице получается новый массив из 7 стоблцов, в котором кол-во строк равно кол-ву заполненных ячеек из первого массива.

Буду благодарен за помощь!

[wtb]

Вот скриншот, т.е. если есть заполненная ячейка, нужно подтянуть к ней значения в овалах...
[IMG]Преобразование массива.jpg[/IMG]

[Aleksandr H.]

надо еще 1 лист - "Лист1"

Sub smth()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim r, c, r1
    Dim lastRow As Long, rightCol As Long
    Set sh1 = Sheets("Опорный массив")
    Set sh2 = Sheets("Лист1")
    sh2.Cells.Clear
    Application.ScreenUpdating = False
    With sh1
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        rightCol = .Cells(2, Columns.Count).End(xlToLeft).Column
        r1 = 2
        For r = 3 To lastRow
            For c = 12 To rightCol
                If .Cells(r, c) <> "" Then
                    sh2.Cells(r1, 1) = .Cells(r, 2)
                    sh2.Cells(r1, 2) = .Cells(r, 3)
                    sh2.Cells(r1, 3) = .Cells(r, 4)
                    sh2.Cells(r1, 4) = .Cells(r, 5)
                    sh2.Cells(r1, 5) = .Cells(r, 6)
                    sh2.Cells(r1, 6) = .Cells(2, c)
                    r1 = r1 + 1
                End If
            Next c
        Next r
    End With
    Application.ScreenUpdating = True
    MsgBox "Готово!"
    Set sh1 = Nothing
    Set sh2 = Nothing
End Sub

[wtb]

Александр, благодарю!!
Написал вам в скайпе