Excel VBA. Поиск, если ячейка содержит текст Specifi c из нескольких листов и ТОЛЬКО определенные части найденной ячейки

Question

Спасибо, что нашли время взглянуть на проблемы, с которыми я сталкиваюсь .. Я довольно долго искал и тестировал, но все же не смог выяснить, что пошло не так.

Сейчас я понятия не имею, что пошло не так.

Ниже приведен текущий код

это листы для поиска

Красная область, где указывается номер модели, а цена указана в результатах поиска

Sub Search()
    Dim LR As Long, i2 As Long
    totalsheets = Worksheets.Count
    
    For i = 1 To totalsheets
        If Worksheets(i).Name <> "Main" Then
        lastrow = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            For j = 2 To lastrow
                If UCase(Worksheets(i).Range("C" & j).Value) Like "*A1-1-35-01*" Then
                Worksheets("Main").Activate
                Worksheets("Main").Range(k, 4).Value = Worksheets("Main").Range("A", j)
            lastrow = Worksheets("Main").Cells(Rows.Count, 1).End(xlUp).Row
                    

                End If
            Next
        End If
    Next
End Sub