Add
  Intersect(.ResultRange.EntireRow, .Parent.Range("A:A")).Value = "RUNNING"
straight after:
.Refresh BackgroundQuery:=False