If Not RangeToClear Is Nothing Then RangeToClear.ClearContents

Sub ClearValidation(target As Range)
Dim RangeToClear As Range
Const LastTableColumn =  3 

'    Set RangeToClear = Application.Intersect(target.CurrentRegion, _
'                                             target.CurrentRegion.Offset(0, target.Column), _
'                                             target.EntireRow)
                                             
    Set RangeToClear = Range(Cells(target.Row, target.Column +  1 ), Cells(target.Row, LastTableColumn))
                                             
                                             
    If Not RangeToClear Is Nothing Then RangeToClear.ClearContents

    Set RangeToClear = Nothing
End Sub