Auto sort cells with formulas

[Mrexel]

Hello folks:
i have a simple problem and i am hoping you could help me, i searched for a solution in internet but nothing seems to help... my question is:
if i have this sheet:
A1=2*B1
A2 =2*B2
A3 =4*B3
B1=4
B2=1
B3=1
i want column "A" to be sorted in descending order automatically when i change the values of column "B".
Is there a formula for this? and if there is not, what the vba code for that?
thanks in advance

 

[BobUmlas]

right-click the sheet tab, select View Code, enter this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Range("A1").CurrentRegion.Sort key1:=[a1], Order1:=xlAscending, Header:=xlNo
End Sub

 

[Mrexel]

thanks for the quick response