Çözüldü Excel kura ile takımlar arası eşleştirme yapma

Sub kura()
Application.ScreenUpdating = False
On Error Resume Next
Range("c1:c65536").ClearContents
sat = 1
For i = 1 To Range("A65536").End(xlUp).Row
For k = i + 1 To Range("A65536").End(xlUp).Row
Cells(sat, 3) = Cells(i, 1) & " - " & Cells(k, 1)
sat = sat + 1
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub