Hi

I am quite new to VBA and I know I may be way off the mark but can someone help and tell me if there is a way to get this working?

If Not Application.Intersect(ActiveCell, Range("D5:D11")) Is Nothing Then
If Target.Value = "Early 1" Then
Dim i As Integer
For i = 1 To 5
Range(Target.Address.Offset(0, i)).Value = Worksheets("Tables").Range("C2").Value

Thank You