' Определяем целевой лист в зависимости от активного листа
Dim ActiveSheet As Long 'Запись данных в целевой лист
Set tSheet = ActiveSheet
Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
.Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
.Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If
Думаю так проще