В чем ошибка в коде макроса Эксель?

Sub CombiFiles()
Dim myName As String, wB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите ПЕРВЫЙ файл для сравнения"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
 
Dim myName1 As String, wB1 As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите ВТОРОЙ файл для сравнения"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName1 = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName1: Set wB1 = Workbooks(ActiveWorkbook.Name)
 
Dim SaveFile As String, sB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите файл для сохранения"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
SaveFile = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=SaveFile: Set sB = Workbooks(ActiveWorkbook.Name)
 
Dim i As Long, j As Long, k As Long, Flag1 As Boolean
 
 
i = 1: k = 1
Do While wB.Worksheets(1).Cells(i, 1) <> ""
' Проверяем в 1 файле на 1 листе строки 1-го столбца, от 1 до пустой, то есть до конца таблицы.
j = 1: Flag1 = False ' Flag - это признак, что запись из Файла1 есть или нет в Файле2.
 
Do While wB1.Worksheets(1).Cells(j, 1) <> ""
' Проверяем во 2 файле на 1 листе строки 1-го столбца, от 1 до пустой, то есть до конца таблицы.
If wB.Worksheets(1).Cells(i, 3) = wB1.Worksheets(1).Cells(j, 75) And wB.Worksheets(1).Cells(i, 4) = wB1.Worksheets(1).Cells(j, 196) And wB.Worksheets(1).Cells(i, 5) = wB1.Worksheets(1).Cells(j, 22) Then Flag1 = True
' Нашли запись из Файла1 в Файле2, устанавливаем Flag в True
j = j + 1
Loop
 
If Flag1 = False Then ' Если запись из Файла1 не встретилась в файле2, то
sB.Worksheets(1).Range(Cells(k, 1), Cells(k, 6)) = wB.Worksheets(1).Range(Cells(i, 1), Cells(i, 6)).Value
' Записываем ее в Файл3
k = k + 1 ' Переходим на следующую строчку в Файле3
End If
i = i + 1
Loop
MsgBox "Выполнение сравнения законченно успешно"
End Sub

sB.Worksheets(1).Range(Cells(k, 1), Cells(k, 6)).Value = wB.Worksheets(1).Range(Cells(i, 1), Cells(i, 6)).Value
или
sB.Worksheets(1).Cells(k, 1).Resize(, 6).Value = wB.Worksheets(1).Cells(i, 1).Resize(, 6).Value

with sB.Worksheets(1)
Range(.Cells(k, 1), .Cells(k, 6)) = Range(.Cells(i, 1), .Cells(i, 6)).Value
end with

with wB.Worksheets(1)
    Range(Cells(k, 1), Cells(k, 6)).Value = .Range(.Cells(i, 1), .Cells(i, 6)).Value
end with

Range(Cells(k, 1), Cells(k, 6)).Value =