VBA to change value only when between two other values

I have over 5,000 lines of data, and I will have the following scenario occur many times throughout:

SG EOS
SG
TOE OF DITCH

When the above 3 values display in 3 different cells grouped together like this, I need to change the value in the cell that just says SG to say DAYLIGHT. I'm needing VBA that will go through all 5,000+ lines of data and change these values.

I used to have something similar that I thought I would be able to change to work, but I can't find it and I could definitely use help with it.

Attached is a snip from the Excel file showing one of these areas circled.

Capture2.PNG

Thank you.

Edit: I guess the image isn't showing up...

It's all but impossible to work from a picture of a spreadsheet.

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Perhaps this, change range to suit

Sub x()
  
Dim rFind As Range, s As String
 
With Sheet1.Columns(1)
    Set rFind = .Find(What:="SG", LookAt:=xlWhole, MatchCase:=True, SearchFormat:=False)
    If Not rFind Is Nothing Then
        Do
            If rFind.Offset(-1) = "SG EOS" And rFind.Offset(1) = "TOE OF DITCH" Then
                rFind.Value = "DAYLIGHT"
            Else
                s = rFind.Address
            End If
            Set rFind = .FindNext(rFind)
         Loop Until rFind Is Nothing Or rFind.Address = s
    End If
End With
     
End Sub

As Olly said, not easy to work without a real sheet.... but I took a stab at it making some guesses. Give this a go?

Sub brianfromla()

Dim ws As Worksheet
Dim lr As Long
Dim i As Long

Set ws = Worksheets("Sheet1") 'change sheet name to the actual name of the sheet with data
lr = ws.Range("D" & Rows.Count).End(xlUp).Row 'change "D" to the column with the SG EOS, SG, TOE OF DITCH info

For i = 2 To lr - 1
    If ws.Range("D" & i) = "SG" Then 'change "D" to the column with the SG EOS, SG, TOE OF DITCH info
        If ws.Range("D" & i - 1) = "SG EOS" And ws.Range("D" & i + 1) = "TOE OF DITCH" Then ws.Range("D" & i) = "DAYLIGHT" 'change "D" to the column with the SG EOS, SG, TOE OF DITCH info
    End If
Next i

End Sub