I have this solution. Good luck.
Just Inline code button does not work in my browser i do now know

----------------------------------------------

Public Sub AssignValue()

Dim i As Long, lr As Long

Dim ws As Worksheet

Dim validValues As Variant, team As String, flag As Boolean

Set ws = ThisWorkbook.Sheets("ReformattedData")

lr = ws.Cells(Rows.Count, 1).End(xlUp).Row

validValues = Array("Team1", "Team2", "Team3", "Team4", "Team5", "Team6", "Other")

flag = False

For i = 2 To lr

If ws.Cells(i, 2).Value = "True" Then

team = ws.Cells(i, 1).Value

For j = LBound(validValues) To UBound(validValues)

If validValues(j) = team Then

flag = True

Exit For

End If

Next j

If flag Then ws.Cells(i, 3).Value = 1

End If

flag = False

Next i

End Sub