Hi friends,

If a date in column ‘AC’ is enter then I want to clear the entry in column ‘AO’ in that particular row only.
For ex. If I enter a date in column ‘AC’ cell address ‘AC6’ then I want to clear the data in column ‘AO’ cell address ‘AO6’ only.

I don’t want any action if the row is <= 5.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

If Not Intersect(Target, Range("AO:AO")) Is Nothing Then

With Range("AN6:AN1000")
.FormulaR1C1 = _
"=IF(RC[-39]="""","""",IF(RC[1]<>"""",IF(RC[-11]="""",YEAR(EDATE(R3C1,-5))&""-""&YEAR(EDATE(R3C1,7)),""""),""""))"
.Value = .Value
End With
End If

With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With

End Sub
Any help will be highly appreciated.

Thanking you,