Just made this up quickly for you. It could be better, but it does the job. ![Smile](images/smilies/001.gif)
Sub TeamAllocation()
Dim LastRow As Integer
Dim x As Integer
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For x = 2 To LastRow
If Range("C" & x).Value = vbNullString Then
If Range("B" & x).Value = "Work Group1" Then
If Range("L16").Value > 0 Then
Range("C" & x).Value = "Team A"
ElseIf Range("L17").Value > 0 Then
Range("C" & x).Value = "Team B"
ElseIf Range("L18").Value > 0 Then
Range("C" & x).Value = "Team C"
End If
End If
If Range("B" & x).Value = "Work Group2" Then
If Range("L25").Value > 0 Then
Range("C" & x).Value = "Team D"
ElseIf Range("L26").Value > 0 Then
Range("C" & x).Value = "Team E"
ElseIf Range("L27").Value > 0 Then
Range("C" & x).Value = "Team F"
End If
End If
End If
Next x
End Sub