Guru do Excel e Power BI

Sub Atribuir()

Dim i           As Long
Dim LinIndex    As Long
Dim LinStart    As Long
Dim LinEnd      As Long
Dim NomeBola    As String
Dim NumeroBola  As Long

    With wshBolas
        LinStart = .Range("V31").Value2 'trocar o valor
        LinEnd = .Range("U31").Value2    'trocar o valor
        LinIndex = .Cells(.Range("T31").Value2, 2).Value 'trocar o valor
        NomeBola = Application.Caller
        NumeroBola = VBA.Right(NomeBola, 2)

        For i = 20 To 22
            If .Cells(LinIndex + LinStart - 1, i).Value = Empty Then
                .Cells(LinIndex + LinStart - 1, i).Value = NumeroBola
                Exit For
            End If
        
            If .Cells(LinIndex + LinStart - 1, i).Value = NumeroBola Then
                VBA.MsgBox "Bola repetida"
                Exit For
            End If
        
            If i = 22 Then
                VBA.MsgBox "Limite excedido"
                Exit For
            End If
        Next i
    End With
End Sub