Ошибка выполнения VBA 1004 «Ошибка приложения или объекта» при проверке дубликатов

Question

У меня проблема с ошибкой 1004 «Ошибка приложения или объекта».

Я много раз использовал один и тот же код, но по какой-то причине я не могу заставить его работать в этом подпункте.

Sub Checkduplicates()

    Dim tracker As Workbook

    Set tracker = ActiveWorkbook

    With tracker.Sheets("Tracker")

        Dim sEntity As String, sAmt As Double, sRow As Integer

        sEntity = .Cells(Row, 6).Value
        sAmt = .Cells(Row, 11).Value

        If Row > 1010 Then sRow = Row - 1000 Else sRow = 4

        For sRow = sRow To Row - 1

            If .Cells(sRow, 6).Value = sEntity And .Cells(sRow, 11).Value = sAmt Then

                  Call GetAnswer

            End If
        Next sRow

    End With

End Sub

Answer 1

row в sEntity = .Cells(row, 6).Value и sAmt = .Cells(row, 11).Value не объявлено и не определено.Похоже, это должна быть последняя заполненная ячейка в столбце F.

Sub Checkduplicates()

    Dim tracker As Workbook

    Set tracker = ActiveWorkbook

    With tracker.Sheets("Tracker")

        Dim sEntity As String, sAmt As Double, sRow As LONG, rw as LONG

        rw = .cells(.rows.count, "F").end(xlup).row
        sEntity = .Cells(rw, 6).Value
        sAmt = .Cells(rw, 11).Value

        If Row > 1010 Then sRow = Row - 1000 Else sRow = 4

        For sRow = sRow To rw - 1

            If .Cells(sRow, 6).Value = sEntity And .Cells(sRow, 11).Value = sAmt Then

                  Call GetAnswer

            End If
        Next sRow

    End With

End Sub

Использовать явную опцию.