Hi,

I use the following VBA code:
If Intersect(Target, Range("W6:W1000")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    
If Target.Count = 1 Then
    If Target.Value = "" Then
        Target.Formula = "= R[0]C[-5]"
    End If
Else
    For Each Cell In Target
            If Cell.Value = "" Then
                Cell.Formula = "= R[0]C[-5]"
            End If
    Next Cell
End If
This is done because I want it to look 5 columns to the left. But with recent developments it is possible that changes will be made and the location the area could be uncertain.

To reiterate, I want it to find the column with a heading of "Notes" and then copy whatever values those cells have into column W.