Run-Time Error "13". Type mismatch

Private Sub CommandButton1_Click()
Dim TargetRow As Long
Dim TargetColumn As Integer
Dim FoundNomer As Range
Dim FoundOkno As Range
Dim FoundOknoRow As Long
 
  TargetRow = ActiveCell.Row            'строка активной ячейки
  TargetColumn = ActiveCell.Column      'столбец астивной ячейки
    With Sheets("Свод")                 'надо перенести содержимое активной ячейки на лист Свод
      'ищем в столбце А строку с 8602/имя листа
      Set FoundNomer = .Columns(1).Find("8602/" & ActiveSheet.Name, , xlValues, xlWhole)
      'ищем окно № на листе Свод, соответствующее окну активной ячейки
      Set FoundOkno = .Columns(1).Find(What:=Cells(ActiveCell.Row, 1), After:=FoundNomer, LookIn:=xlValues, _
                                        LookAt:=xlWhole, SearchDirection:=xlPrevious)
      FoundOknoRow = FoundOkno.Row
      .Cells(FoundOknoRow, TargetColumn) = ActiveCell
    End With
End Sub

 Set FoundOkno = .Columns(1).Find(What:=Cells(ActiveCell.Row, 1), After:=FoundNomer, LookIn:=xlValues, _
                                        LookAt:=xlWhole, SearchDirection:=xlPrevious)

Sheets("Свод").Outline.ShowLevels RowLevels:=2

Sub PerenosTarger()
Dim TargetRow As Long, TargetColumn As Long, FoundNomer As Range, FoundOkno As Range, FoundOknoRow As Long
TargetRow = ActiveCell.Row
TargetColumn = ActiveCell.Column
Worksheets("0001").Activate
With Sheets("Свод")
    Set FoundNomer = .Columns(1).Find("8602/" & ActiveSheet.Name, , xlValues, xlPart)
    .Activate
    Set FoundOkno = .Columns(1).Find(What:=Cells(ActiveCell.Row, 1), After:=FoundNomer, LookIn:=xlValues, _
            LookAt:=xlWhole, SearchDirection:=xlPrevious)
    FoundOknoRow = FoundOkno.Row
    .Cells(FoundOknoRow, TargetColumn) = ActiveCell
End With
End Sub