Макрос для переноса столбцов в строки на другой лист

[hiss]

Добрый день уважаемы форумчане, давно читаю форум, вот теперь и мне понадобилась помощь
Проблема в следующем: Есть файл в котором есть данные в столбцах А (столбец с наименованием компании) и столбцах R - AF и т.д (это столбец о прошедших переговорах). Задача в следующем: нужно на отдельный лист перенести данные из столбцов А, R-AF в виде строк. В прикрепленном файле, на листе 1 исходное состояние, на листе 2 как должно быть. Помогите в написании макроса 

[kuklp]

В модуль листа 1:

Код Выделить Развернуть

Public Sub www()
    Dim sh As Worksheet, c As Range, a, i&
    Set sh = Worksheets.Add(after:=Sheets(1))
    For Each c In Range("a2", [a2].End(xlDown))
        a = c.Offset(, 17).Resize(, 15)
        sh.[b65536].End(xlUp)(2, 0) = c
        For i = 1 To 15
            sh.[b65536].End(xlUp)(2) = a(1, i)
        Next
    Next
End Sub

[hiss]

Спасибо все сработало, Вы лучший!!!