Почему моя переменная начинается с диапазона, который я хочу?

Question

Итак, я создаю базу данных на основе одного из моих листов в рабочей тетради. Итак, у меня есть 3 листа: «Лист 1», «Лист 2» и «Данные». У меня есть пользовательская форма, которая будет вводить информацию в «Лист 1» и «Лист 2». И тогда вся эта информация будет перенесена на вкладку «Данные». Таким образом, «Лист 1» может иметь как 3 строки информации, в то время как «Лист 2» может иметь 5 строк. И информация иногда может быть изменена или удалена.

Проблема, с которой я сталкиваюсь, заключается в том, что мой "rs.Cells (Row.Row, 2)" начинается с самого первого ряда. Но я настроил его так, чтобы он начинался в определенном диапазоне, который я хочу. Почему он выходит за пределы диапазона?

Dim rs as worksheet
Dim ws as worksheet: Set ws = ThisWorkBook.Worksheets("Data")
Dim NextRowD as Long
Dim lastRow as Long
Dim note as Range

lastRow = oWS.Range("A:A").find("No.", lookat:=xlWhole, LookIn:=xlValues).Row
NextRow = oWS.Range("A:A").find(what:="", after:=Cells(lastRow, 1)).Row
Set note = oWS.Range("A:K").find("COMMENTS")

For Each rs In ThisWorkbook.Worksheets

If rs.name <> "Data" Then
    For Each rw In rs.Range(rs.Cells(lastRow).Offset(1, 0), rs.Cells(note.Row, 18).Offset(-4, 0)).Rows 'this is where I want the range to start

        NextRowD = ws.Range("A:A").find("", after:=Cells(rankD.Row, 1)).Row

        ws.Cells(NextRowD, 2) = Me.tbCustomer
        ws.Cells(NextRowD, 8) = Me.cbLocation
        ws.Cells(NextRowD, 16) = rs.Cells(rw.Row, 2)****** 'the problem is here

    Next Row

End If
Next rs