Копирование из двух книг - VBA

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

Добрый день форум. Требуется ваша помощь, надеюсь только на вас. Суть такая, началась практика после колледжа на завод попал. Дали задание по Vba, давали нам его мало, с отговоркой "вам оно не надо". Задание такое: есть две книги, необходимо сверив столбцы А книги 1 и книги 2 , скопировать столбец В из 1ой книги во вторую. При этом убрав два последних символа из ячейки. 1.5 недели изучения самостоятельного привели к следующим результатам(мой код ниже). Результат появляется хоть и с ошибкой, но возникла другая проблема,когда я копирую код в книги с которыми нужно предоставить результат, кроме ошибки результат нет ни какого. Сам пробую все написать в книгах которые создал сам, как пробники. Меньше листов и так далее. Очень надеюсь на вашу помощь, так как больше не куда обратиться.Заранее спасибо.Прикрепил только файл в который должно копироваться из книги1, тк не могу прикреплять xlsm.

                    Листинг программы
                
 
                        
                          
                    
Sub lol()
Dim s As Object
Set k1 = Workbooks.Open("I:\Проба\123.xlsx")
LastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastRow1 = k1.Worksheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
    For j = 1 To LastRow1
        If ThisWorkbook.ActiveSheet.Cells(i, 1) = k1.Worksheets("Лист1").Cells(j, 1) Then
            k1.ActiveSheet.Cells(j, 2) = ThisWorkbook.ActiveSheet.Cells(i, 2)
        End If
    Next j
Next i
For Each s In k1.Worksheets("Лист1").Range("B1:B950").Cells
s.Value = Left(s, Len(s) - 2)
Next s
End Sub

Решение задачи: «Копирование из двух книг»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Perenos()
Dim Last1 As Long, Last2 As Long, I As Long, J As Long
Dim S, OB1 As Object, OB2 As Object
Set OB1 = Workbooks(1).Sheets(1)
Set OB2 = Workbooks(2).Sheets(1)
Last1 = OB1.Cells.SpecialCells(xlCellTypeLastCell).Row
Last2 = OB2.Cells.SpecialCells(xlCellTypeLastCell).Row
For I = 1 To Last1
  S = OB1.Cells(I, 1)
  For J = 1 To Last2
    If S = OB2.Cells(J, 1) Then
      OB2.Cells(J, 2) = Left(OB1.Cells(I, 2), Len(OB1(Cells(I, 2)) - 2))
      Exit For
    End If
  Next
Next
End Sub