Auto sort standing as data is inputed

[jjhill051]

A B C D E F G H I J K L M N O P Q
[TABLE="width: 864"]
<tbody>[TR]
[TD]Rank[/TD]
[TD]Player[/TD]
[TD]GP[/TD]
[TD]W[/TD]
[TD]L[/TD]
[TD]T[/TD]
[TD]PTS[/TD]
[TD]%[/TD]
[TD]W[/TD]
[TD]L[/TD]
[TD]W[/TD]
[TD]L[/TD]
[TD]W[/TD]
[TD]L[/TD]
[TD]GS[/TD]
[TD]GA[/TD]
[TD] +/-[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Jessi[/TD]
[TD]10[/TD]
[TD]6[/TD]
[TD]2[/TD]
[TD]2[/TD]
[TD]14[/TD]
[TD]0.700[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Dan[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]2[/TD]
[TD]1.000[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Fil[/TD]
[TD]9[/TD]
[TD]6[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]14[/TD]
[TD]0.778[/TD]
[TD]0[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]-1[/TD]
[/TR]
</tbody>[/TABLE]


Jessi is in row 4, Dan is row 5, Fil is row 6


Based off the Rank formula I have in A4-A6 (Ranks based on amount of points with a tie breaker on %) I want the standings to auto sort to rank the first place team on top and last on bottom as the data is inputed. So (B4-Q4) (B5-Q5) (B6-Q6) will move up and down based on the rank.

Any help will be awesome!! Thannks

 

[Warship]

This will run after columns D E & F are populated.
Place code into sheet module of sheet being sorted.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns("D:F")) Is Nothing Then
        If Not IsEmpty(Range("D" & Target.Row)) And _
            Not IsEmpty(Range("E" & Target.Row)) And _
            Not IsEmpty(Range("F" & Target.Row)) Then
            Range("A3").Sort Key1:=Columns("A"), Header:=xlYes
        End If
    End If
End Sub