Цикл в столбце и запись в файл

[Hugo121]

Извиняюсь, не до конца проверил.
Но причина та же - не задано значение переменных:

Sub Perenos()

    Dim WBk As Workbook
    Dim ПутьКПапке As String
    Dim WSheet As Worksheet
    Dim ПутьКФайлу As String
'вообще лишнее:
 '   Dim WBN As Workbook
 '   Dim WSh As Worksheet

'добавить:
    Set WBk = ThisWorkbook
    Set WSheet = WBk.Worksheets("ОПС-2")

[Любовь87]

Большое Спасибо