Выборка рабочего листа, блок With - VBA

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

Здравствуйте! Помогите решить проблему в коде. С помощью данного кода происходит сдача книги в библиотеке. В таблице "Архив" создается отчет о сдаче книги, а в таблице "Библиотека" к нужной книге прибавляется количество +1. Код вроде бы работает как нужно, но проблема в том, что не смотря на установленные блоки With, программа работает только если активным листом установлен "Архив", если другой, то работает не так. Возможно я блоки использую неправильно, не знаю.. Буду презнателен, если поможите решить данную проблему )

Private Sub CommandButton1_Click()
 
If TextBox2.Text = "" Then
MsgBox ("Введите ID книги!")
Exit Sub
End If
 
Dim sd As Range, a As Double, b As Double, c As Double, d As Double, e As Range
Dim rsd As Range
    With ThisWorkbook.Worksheets("Архив")     'Первый блок
    
    Set rsd = Range("A2", Range("A65536").End(xlUp))

    If rsd.Find(What:=Worksheets("Архив").Range("N6"), LookAt:=xlWhole, MatchCase:=True) Is Nothing Then
     MsgBox ("Вы долгов не имеете!")
     Else
       
        For Each sd In rsd
        a = sd.Offset(0, 5).Value - Range("L2").Value
        b = TextBox2.Value
        c = Worksheets("Архив").Range("N6").Value
                 
        If sd.Offset(0, 0).Value = c And sd.Offset(0, 1).Value = b And sd.Offset(0, 2).Value = "Сдана" Then
            MsgBox ("Книга ID: " & TextBox2 & " уже была сдана!")
        ElseIf sd.Offset(0, 0).Value = c And sd.Offset(0, 1).Value = b And sd.Offset(0, 2).Value = "Выдана" And a < 0 Then
            d = Abs(a * 10)
            d = Format(d, "#####,#")
            If MsgBox("Книга ID: " & TextBox2 & " просрочена. Штраф: " & d & "руб. Оплатить?", vbYesNo) = vbYes Then
            sd.Offset(0, 2).Value = "Сдана"
            sd.Offset(0, 3).Value = Now
            sd.Offset(0, 6).Value = d
            MsgBox ("Книга ID: " & TextBox2 & " успешно сдана!")
            
            With Worksheets("Библиотека")                   'Второй
            Set e = .[A2].Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1).Find( _
            What:=TextBox2, LookAt:=xlWhole, MatchCase:=True)
            e.Offset(0, 3).Value = e.Offset(0, 3).Value + 1
            End With
            
            End If
        ElseIf sd.Offset(0, 0).Value = c And sd.Offset(0, 1).Value = b And sd.Offset(0, 2).Value = "Выдана" And a >= 0 Then
            sd.Offset(0, 2).Value = "Сдана"
            sd.Offset(0, 3).Value = Now
            MsgBox ("Книга ID: " & TextBox2 & " успешно сдана!")
            
            With Worksheets("Библиотека")                    'Третий
            Set e = .[A2].Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1).Find( _
            What:=TextBox2, LookAt:=xlWhole, MatchCase:=True)
            e.Offset(0, 3).Value = e.Offset(0, 3).Value + 1
            End With
            
        End If
  
        Next sd
        MsgBox ("Вы эту книгу больше не брали!")
    End If
End With
End Sub

Решение задачи: «Выборка рабочего листа, блок With»

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

                            ...
 
With ThisWorkbook.Worksheets("Архив")     'Первый блок
     Set rsd = .Range(.[A2], .[A65536].End(xlUp))
     
     c = .[N6].Value
     'Зачем изначально дёргать эту ячейку в цикле, если её значение, всё равно не меняется ?
     
     b = TextBox2.Text
     'Если текст, то String, если число, то Double и Val(TextBox2.Text)
     'и в дальнейшем, вместо TextBox2 , просто использовать b
     
     If rsd.Find(c, , xlFormulas, xlWhole) Is Nothing Then
        MsgBox "Вы долгов не имеете!"
     Else
         For Each sd In rsd
             a = sd.Offset(0, 5).Value - .[L2].Value
             ...
                        