Прерывается поиск по листам на первом листе

Sub sss()
    
Sheets("Ëèñò1 (2)").Activate
 
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
    For j = 1 To ThisWorkbook.Sheets.Count
        If Cells(i, 3).Value = Sheets(j).Name Then
            srchmodel = Cells(i, 2)
            Sheets(j).Activate
            Set rFndRng = Range("AH:AI").Find(srchmodel, , xlValues, xlWhole)
            rFndRng.Select
        End If
    Next
Next
'
 
End Sub

Sub WeekPaste()
 
For i = 1 To ThisWorkbook.Sheets("Constructor").Cells(Rows.Count, 3).End(xlUp).Row
    For j = 1 To ThisWorkbook.Sheets.Count
        If ThisWorkbook.Sheets("Constructor").Cells(i, 3).Value = Sheets(j).Name Then
            
            ThisWorkbook.Sheets("Constructor").Activate
                Range(Cells(i, 3).Offset(1, 20), Cells(i, 3).Offset(1, 36)).Copy
            
                a = ThisWorkbook.Sheets("Constructor").Cells(i, 3).Offset(0, -1)
            
                Set b = ThisWorkbook.Sheets(j).Range("AH1:AI1000").Find(a, , xlValues, xlWhole).Offset(0, -30)
                Set c = ThisWorkbook.Sheets(j).Range("AH1:AI1000").Find(a, , xlValues, xlWhole).Offset(60, -30)
            
                    d = b.Address
                    e = c.Address
            
                Set f = ThisWorkbook.Sheets(j).Range(d, e).Find(31, , xlValues, xlWhole).Offset(0, 2)
            
                    g = f.Address
 
                Sheets(j).Activate
                    Range(g).Select
                    Sheets(j).Paste
        End If
    Next
Next
 
End Sub