Excel VBA Макросы. Перенос найденных ячеек на другой лист.

[Посетитель]

Нужно скопировать данные из листа "1 курс" на лист "Лист1".
Нужно скопировать данные, если на листе "1 курс" в строке 46 в ячейке есть слово "Лекционные". В ячейке кроме слова "Лекционные" могут быть и другие слова.
Нужно скопировать данные из столбцов 4 - 100, из строки 46, из ячейки, в которой содержится слово "Лекционные".
Вставлять данные нужно в столбцы A, B, начиная со строки 1:
столбец A: значение из ячейки, в которой находится слово "Лекционные";
столбец B: 09:00:00 - 10:35:00

[Администратор]

Данный макрос ищет слово "Лекционные" с учётом регистра. Если слово "Лекционные" будет написано с маленькой буквы, то макрос слово "Лекционные" не найдёт.

Sub Макрос()
   
    Dim r As Long, j As Long
   
    r = 1
    For j = 4 To 100
        If Sheets("1 курс").Cells(46, j) Like "*Лекционные*" Then
            r = r + 1
            Sheets("Лист1").Cells(r, 1) = Sheets("1 курс").Cells(46, j)
            Sheets("Лист1").Cells(r, 1).Offset(0, 1) = "09:00:00 - 10:35:00"
        End If
    Next j

End Sub

[Посетитель]

спасибо