Перенос данных на другой лист - VB

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

Здравствуйте! Проблема в следущем: сравниваются последние сроки двух диапазонов на Лист2. При сравнении, если данные не совпадают, то несовпавшее значение переносится на другой Лист38.

   
Sub Перенос()
Dim LastRow1 As Long, LastRow2 As Long, Rng1 As Range, Rng2 As Range, Rng3 As Range
    LastRow1 = Cells(Rows.Count, 2).End(xlUp).Row
    Set Rng1 = Sheets(2).Range(Cells(LastRow1, 2), Cells(LastRow1, 109))
    LastRow2 = Cells(Rows.Count, 114).End(xlUp).Row
    Set Rng2 = Sheets(2).Range(Cells(LastRow2, 114), Cells(LastRow2, 221))
    Set Rng3 = Sheets(38).Range("B7:DE7")
    For i = 1 To 108
    If Rng1(i) <> Rng2(i) Then
    Rng3(i).Value = Rng1(i).Value
    End If
   Next
   End Sub

На простом примере - в отдельном файле, где немного страниц - все работает. Но при переносе кода в основной файл, содержащий 40 страниц, работать отказывается. Выделяет строку:

Set Rng1 = Sheets(2).Range(Cells(LastRow1, 2), Cells(LastRow1, 109))

Подскажите, пожалуйста в чем проблема? Спасибо.

Выдает сообщение: Run-time error Application-defined or Object defined error

Решение задачи: «Перенос данных на другой лист»

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

                            with Sheets(2)
Set Rng1 = .Range(.Cells(LastRow1, 2), .Cells(LastRow1, 109))
end with
                        