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

Rank	Player	GP	W	L	T	PTS	%	W	L	W	L	W	L	GS	GA	+/-
2	Jessi	10	6	2	2	14	0.700	0	0	1	0	0	0	2	1	1
3	Dan	1	1	0	0	2	1.000	0	0	1	0	0	0	2	1	1
1	Fil	9	6	1	2	14	0.778	0	1	0	0	0	0	1	2	-1

<tbody>
</tbody>

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