複雑な条件での絞り込み

Question

前提・実現したいこと

名前、店舗名、契約締結日が同じで、G列「備考欄」に「解約」とあればB列「状況」に「解約」、E列「契約開始日」が最新の日付であればB列「状況」に「最新データ」、契約開始日が最新でないものは「古い」と表示させたいです。解約と表示させることはできるのですが、同じ列内で条件を同じものを絞り込むことができず、かなり苦戦しています。。
VBAに詳しい方、お知恵をお貸しください。

発生している問題・エラーメッセージ

データは200行ほどあり、今後も増える予定です。
にっちもさっちもいかなかったので、H列に=C&D&Fを入れて最新、古い、解約の3択にしようとしたのですが、全て最新と出てしまいます。。
Dim i As Long
For i = 18 To 200
If Cells(i, 7) = Cells(i, 7) And _
Cells(i, 18).Value >= Cells(i, 18).Value Then
Cells(i, 2).Value = "最新"

End If

　　Cells(i, 2).Value = "古い"

Next i

Answer 1

これでいかがでしょうか。

Sub Main()

Dim i As Long
Dim j As Long

For i = 18 To 200
    If Cells(i, "C").Value = "" Then
        Exit For
    ElseIf Cells(i, "G").Value = "解約" Then
        Cells(i, "B").Value = "解約"
    Else
        For j = 18 To 200
            If i = j Then
            ElseIf Cells(j, "C").Value = "" Then
                Exit For
            ElseIf Cells(i, "C").Value = Cells(j, "C").Value And _
                Cells(i, "D").Value = Cells(j, "D").Value And _
                Cells(i, "F").Value = Cells(j, "F").Value _
            Then
                If Cells(i, "E").Value < Cells(j, "E").Value Then
                    Cells(i, "B").Value = "古い"
                    Exit For
                End If
            End If
        Next j
        If Cells(i, "B").Value = "" Then
            Cells(i, "B").Value = "最新"
        End If
    End If
Next i

End Sub

処理内容は、
①自分以外の行と比較し、古かったら「古い」。
②自分以外の行と最後の行まで比較し、最後まで「古い」にならなかったら「最新」。

Answer 2

こんな感じでどうでしょうか。

    Dim ws As Worksheet, lastRow As Long, rng As Range
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
    Set rng = ws.Range(ws.Cells(18, 2), ws.Cells(lastRow, 2))
    
    rng.Formula2R1C1 = "=IF(COUNTIFS(C[1],RC[1],C[2],RC[2],C[4],RC[4],C[5],""解約"")=1,""解約"",IF(COUNTIFS(C[1],RC[1],C[2],RC[2],C[4],RC[4],C[3],"">=""&RC[3])=1,""最新"",""古い""))"