Question for Worksheet Change in Excel

[Joe2000]

Hello I am new in Excel and I would thank a lot if someone can help me.
I wrote this code with linked dropdown lists in cells:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$S$4" Then
Range("$T$4").Value = Empty
End If

If Target.Address = "$S$5" Then
Range("$T$5").Value = Empty
End If

If Target.Address = "$S$6" Then
Range("$T$6").Value = Empty
End If
End Sub

I need to do the same process till the end of the worksheet (for example S7 with T7, S8 with T8, S9 with T9 and so on) but I do not know how to do it without writing one by one. Can someone Kindly help me please?

 

[rollis13]

This could be a solution:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 4 Or Target.Column <> 19 Then Exit Sub '19="S"    'accept only cells from S4 and down
    Application.EnableEvents = False              'avoid redundant triggering of Worksheet_Change
    Target.Offset(0, 1) = Empty                   'empty same row, one column right "T"
    Application.EnableEvents = True
End Sub

 

[Joe2000]

This could be a solution:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 4 Or Target.Column <> 19 Then Exit Sub '19="S"    'accept only cells from S4 and down
    Application.EnableEvents = False              'avoid redundant triggering of Worksheet_Change
    Target.Offset(0, 1) = Empty                   'empty same row, one column right "T"
    Application.EnableEvents = True
End Sub

Thank you so much!!! you are a hero

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.
By the way, you probably need to mark this thread as 'Solved'.

 

[Joe2000]

Thanks for the positive feedback, glad having been of some help.
By the way, you probably need to mark this thread as 'Solved'.

Done and once again thank you so much!