How to avoid repeat code

Hello everybody
I am newbie at vba
Can someone help me please?
I,ve got the bellow code and working indepedent at each row 4,5 with target column B
What i want is to make it work until row 50,without to repeat the code 50 times
Note i want to work the rows indepedent and NOT let say if clear contents C4:G4 to clear
as well C5:G5 etc

If Not Intersect(Target, Range("B4")) Is Nothing Then
If UCase(Range("B4")) = "" Then
Application.EnableEvents = False
Range("C4:G4").ClearContents
Application.EnableEvents = True
End If
End If
If Not Intersect(Target, Range("B5")) Is Nothing Then
If UCase(Range("B5")) = "" Then
Application.EnableEvents = False
Range("C5:G5").ClearContents
Application.EnableEvents = True
End If
End If


Thanks

Thank you so much

One more thing for me it is very complicate for you maybe easy
At following code I've got if Target Value = "DOR" Then transfer the values from Target Rows 7,19,16 to another sheet called BAYS at rows 9,7,8.
This code work perfect. What I want is if change Target Value = " " then clear contents at sheet BAYS in rows 9,7,8

Please Login or Register  to view this content.

Thanks

Thanks for try
unfortunately not working