Add date based on condition

Hi all

Can any one help me in creating a macro to the attached sheet.
I need to add date based on condition. The condition I colored in green. I need to calculate the Next review date based on these condition.
Thank you..

little addition to conditions table and here is the result
Sampe A.xlsx

hi run the vba code included in file

FWIW:

Sub talkvinith()
Dim i As Long
For i = 2 To Range("B" & Rows.count).End(3).Row
    Select Case Range("B" & i).Value
        Case Is = "Active Plan", "Paid", "Letters Not Expired"
            Range("D" & i) = Range("C" & i) + 30
        Case Is = "Charge Off", "Repay Plan"
            Range("D" & i) = Range("C" & i) + 15
        Case Is = "Contacted"
            Range("D" & i) = Range("C" & i) + 7
        Case Is = "Pending", "Letters Pending"
            Range("D" & i) = Range("C" & i) + 3
        Case Is = "Pending Contact"
            Range("D" & i) = Range("C" & i) + 1
        Case Is = "Sensitive"
            Range("D" & i) = Range("C" & i) + 60
        Case Is = "Letters Requested"
            Range("D" & i) = Range("C" & i) + 5
        Case Is = "Completed"
            Range("D" & i) = "No Review Required"
    End Select
Next i

        
End Sub