请尝试下一个经过调整的事件代码：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim LastR As Long
 LastR = Me.UsedRange.SpecialCells(xlCellTypeLastCell).row

 If Not Intersect(Target, Me.Range("FX4:GK" & LastR)) Then 'the range in which the event will be triggered
    Application.EnableEvents = False
     Me.Range("GO" & Target.row).Value = Me.Range("GO" & Target.row).Value + 1
    Application.EnableEvents = False
 End If
End Sub

您不需要更新尚未更改的单元格...

您需要检查target-因为这是更改的范围。
调用一个完成您想要的工作并相应命名的sub，可以提高代码的可读性。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c as Range

For each c in Target.cells  'in case multiple cells got changed
    If InStr(1, c.Value, "delayed") > 0 Then
        updateTotalDelayed c
    End If
Next

End Sub

Private Sub updateTotalDelayed(c as range)
Application.EnableEvents = False
With me.range("GO" & c.row) 'always use explicit referencing - in this case me represents the sheet where the event occured.
    .value = .value + 1
End With
Application.EnableEvents = True
End Sub