Tabla de Posiciones

Copia este codigo en Hoja1

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b1:b20")) Is Nothing Then Exit Sub
With Range("a1:b20")
.Sort Key1:=Range("b1"), Order1:=xlDescending
End With
ActiveCell.Offset(0, 2).Select
End Sub

Los equipos van en la columna A
El puntaje en la columna B

"Angelo" escribió en el mensaje
news:

Holas, Como estan?? quisiera saber si alguno de ustedes tiene algun

archivo

en excel con tabla de posiciones para futbol??y que sea automatica, o

donde

podria bajarme una.

Saludos,