Expand range help

[David]

I use the following to keep cells between two sheets in sync:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lrow As Long
On Error GoTo ws_exit:
Lrow = Cells(Rows.Count, 3).End(xlUp).Row
If Target.Count > 1 Then GoTo ws_exit
If Intersect(Target, Range("C3:C" & Lrow)) Is Nothing Then GoTo ws_exit
Application.EnableEvents = False
Sheets(2).Range("B18").Offset(Target.Row, 0) = Target.Value
ws_exit:
Application.EnableEvents = True
End Sub

What I would like to do is expand its range to include source columns E and
F, skipping D and include target columns C and D

 

[David]

I worked out the first part:
If Intersect(Target, Range("C3:C" & Lrow, "E3:F" & Lrow)) Is Nothing Then
GoTo ws_exit

Still can't get the second, presumably because there is one less column on
sheet 2. I can't change that due to other routines in my project.

 

[David]

Got it:
If Target.Column > 3 Then
Sheets(2).Range("B18").Offset(Target.Row, Target.Column - 4) = Target.Value
Else
Sheets(2).Range("B18").Offset(Target.Row, 0) = Target.Value
End If