Sub Наименование()

On Error GoTo neproizvoditsya
    
             Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
            
            Selection.Find(What:="Холодильники и морозильники – ").Activate
              
    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
        Selection.Find(What:="Холодильники и морозильники – ").Activate

        ActiveCell.Offset(0, 1).Select
    ActiveCell.Offset(0, -1).Select
       Selection.Copy


    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Наименование").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
 Application.Run "Снят_с_производства"
       Exit Sub
neproizvoditsya:
Application.Run "Снят_с_производства"
End Sub
Sub Снят_с_производства() '--------Копируем Цену--------------
   
   On Error GoTo cena
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
     Selection.Find(What:="Снят с производства").Activate
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Offset(0, -1).Select
       Selection.Copy


    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Снят с производства").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
    Application.Run "Цена"
       Exit Sub
       
cena:
Application.Run "Цена"
End Sub


Sub Цена() '--------Копируем Цену--------------
   
   On Error GoTo Gabarit
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
     Selection.Find(What:="Руб.").Activate
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Offset(0, -1).Select
       Selection.Copy


    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Цена:").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
    Application.Run "Габариты"
       Exit Sub
       
Gabarit:
Application.Run "Габариты"
End Sub
Sub Габариты() ' --------Копируем Габариты (ВхШхГ) (см):--------------
    On Error GoTo obem
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Габариты (ВхШхГ) (см):").Activate
    ActiveCell.Offset(0, 1).Select
           Selection.Copy
    
    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Габариты (ВхШхГ) (см):").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
     Application.Run "Объем"
       Exit Sub
       
obem:
Application.Run "Объем"
End Sub
 Sub Объем()    ' --------Копируем Объем холодильника (л):--------------

    On Error GoTo нolod
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
            Selection.Find(What:="Холодильника (л):").Activate
    ActiveCell.Offset(0, 1).Select
           Selection.Copy
    
    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Объем холодильника (л):").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Application.Run "Холод"
       Exit Sub
       
нolod:
Application.Run "Холод"
End Sub
Sub Холод()         ' --------Копируем Объем холодильной камеры (л):--------------

    On Error GoTo Moroz
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Холодильной камеры (л):").Activate
    ActiveCell.Offset(0, 1).Select
           Selection.Copy
    
    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Объем холодильной камеры (л):").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
Application.Run "Мороз"
       Exit Sub
       
Moroz:
Application.Run "Мороз"
End Sub

Sub Мороз()             ' --------Копируем Объем морозильной камеры (л):--------------

 On Error GoTo Klimat
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Морозильной камеры (л):").Activate
    ActiveCell.Offset(0, 1).Select
           Selection.Copy
    
   Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Объем морозильной камеры (л):").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
   Application.Run "Климат"
       Exit Sub
       
Klimat:
Application.Run "Климат"
End Sub
Sub Климат()                 ' --------Копируем Климатический класс:--------------

    On Error GoTo Color
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Климатический класс:").Activate
    ActiveCell.Offset(0, 1).Select
           Selection.Copy
    
    Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Климатический класс:").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
   Application.Run "Цвет"
       Exit Sub
       
Color:
Application.Run "Цвет"
End Sub
Sub Цвет()                     ' --------Копируем Цвет:--------------

    On Error GoTo Strana
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Цвет:").Activate
        ActiveCell.Offset(0, 1).Select
           Selection.Copy

   Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Цвет:").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
Application.Run "Страна"
       Exit Sub
       
Strana:
Application.Run "Страна"
End Sub
Sub Страна()   ' --------Копируем Страна- производитель:--------------

    On Error GoTo kones
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Страна-производитель:").Activate
    ActiveCell.Offset(0, 1).Select
           Selection.Copy
    
   Windows("К загрузке на сайт.csv").Activate
    Sheets("К загрузке на сайт").Select
    Rows("1:1").Select
    Selection.Find(What:="Страна-производитель:").Activate
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
Application.Run "Поиск_конца"
       Exit Sub
       
kones:
Application.Run "Поиск_конца"
End Sub

Sub Поиск_конца()   ' --------проверяем последняя ли строка--------------

    On Error GoTo cicle
    Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
             Rows("1:1").Select
    Selection.Find(What:="Эта хуйня означает конец строк!!!").Activate
    ActiveCell.Offset(0, 1).Select
    
End
       
       Exit Sub
       
cicle:

Windows("WEB_Данные.xlsx").Activate
             Sheets("Лист1").Select
Range("A1").Select
'Selection.ClearContents
ActiveCell.EntireRow.Delete
Application.Run "Наименование"


End Sub
