МАКРОС-СКОПИРОВАТЬ непустые ячейки из 1 столбца в 13

[Елена Балаково]

Здравствуйте! Надо скопировать  непустые ячейки из 1 столбца в 13, все это на одном листе. Есть макрос, который копирует непустые ячейки из столбца "а" на другой лист с столбец "а", начиная с 1 строки. Как его переделать?

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

Sub перенос_значений_на_другой_лист()
Sheets("Счет_клиенту").Range("A:A").SpecialCells(2).Copy Sheets("скопировать_из_сортированного_с").Range("A1")
End Sub


[cheshiki1]

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

Sub перенос_значений_в_столбец_M()
Sheets("Счет_клиенту").Range("A:A").SpecialCells(2).Copy Sheets("Счет_клиенту").Range("M1")
End Sub