Возникли проблемы с отслеживанием ячейки и приведением диапазона ячеек к новой переменной

Question

Я пытаюсь выбрать ячейку для отслеживания, пока цикл перемещается вниз по ячейке, проверяя условия. Если условия выполнены, я хочу заполнить выбранную ячейку в зависимости от выполненного условия. Я продолжаю получать ошибку во время выполнения «1004», «Метод« Диапазон »объекта'_Global» не выполнен »в строке Set TrackedCell = Range(cell). Как вы отслеживаете или записываете предыдущую ячейку в цикле?

Sub AutoFill()
Dim rng As Range, cell As Range
'Set rng = Application.InputBox("Select a range", "Get Range", Type:=8)
Set rng = Range("F36:F66")
For Each cell In rng
    If IsEmpty(cell) = True And IsEmpty(Range("B" & cell.Row)) = True Then
        If IsEmpty(cell.Offset(-1, 0)) = True Then
            Dim TrackedCell As Range
            Set TrackedCell = Range(cell)
            TrackedCell.Offset(0, 1).Select
            cell.Offset(1, 0).Select
            Do Until IsEmpty(cell) = True
                If IsEmpty(TrackedCell) = False And InStr(1, celltxt, "F") Then
                    TrackedCell.Value = "F"
                ElseIf IsEmpty(TrackedCell) = False And InStr(1, celltxt, "NE") Then
                    TrackedCell.Value = "NE"
                ElseIf IsEmpty(TrackedCell) = False And InStr(1, celltxt, "P") Then
                    TrackedCell.Value = "P"
                End If
            Loop
            'Dim Subtest As Range
        End If
    End If
Next cell
End Sub