Копирование столбцов в Excel, которые содержат определенный символ - VB

Формулировка задачи:

Добрый день! Есть таблица в Excel, мне необходимо выделить и скопировать определенные столбцы этой таблицы на другой лист. А именно те столбцы названия которых содержат: №, Название дисциплины, Часов. Подскажите как это сделать, заранее благодарна Таблица во вложении.

Решение задачи: «Копирование столбцов в Excel, которые содержат определенный символ»

textual
                            Листинг программы 
                        

                            Sub ColCopy()
Application.ScreenUpdating = False
With Sheets(1)
    For i = 1 To .UsedRange.Columns.Count
        If .Cells(1, i).Value Like "*В№*" Then .Cells(1, i).EntireColumn.Copy Sheets(2).Columns(1)
        If .Cells(1, i).Value Like "*Г*Г*Г§ГўГ*Г*ГЁГҐ*" Then .Cells(1, i).MergeArea.EntireColumn.Copy Sheets(2).Columns(Sheets(2).UsedRange.Columns.Count + 1)
        If .Cells(1, i).Value Like "*Г·Г*Г±Г®Гў*" Then .Cells(1, i).MergeArea.EntireColumn.Copy Sheets(2).Columns(Sheets(2).UsedRange.Columns.Count + 1)
    Next
End With
Application.ScreenUpdating = True
End Sub
                        