Как запустить если оценки основаны на двух строковых переменных?

Question

Я хочу вставить в диапазон слово, основанное на двух строковых переменных, найденных в другом диапазоне. Примерно так: если в диапазоне A до последней строки найдено значение ab c, то в диапазоне B до последней строки введите слово good, если нет, также введите слово good.

И если в том же диапазоне A в последней строке находится строка xyz, затем пропустите часть, в которую вставлено слово good, и запустите часть, в которую вставлено слово bad, а не слово good.

Я пробовал что-то подобное, но не Знайте, чтобы пропустить первую часть, если найдена вторая строка.

Dim rng As Range
Set rng = ActiveSheet.Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
For Each Cell In rng.Cells
    If InStr(1, Cell, "vf7") > 0 Then
        Cell.Offset(0, 2).Value = "CIT"
    ElseIf InStr(1, Cell, "VF7") > 0 Then
        Cell.Offset(0, 2).Value = "CIT"
    Else
        Cell.Offset(0, 1).Value = "CIT"
    End If
Next

For Each Cell In rng.Cells
    If InStr(1, Cell, "vf3") > 0 Then
        Cell.Offset(0, 2).Value = "PGT"
    ElseIf InStr(1, Cell, "VF3") > 0 Then
        Cell.Offset(0, 2).Value = "PGT"
    Else
        Cell.Offset(0, 2).Value = "PGT"
    End If
Next

THX