If a Cell is blank move the row to the bottom

[DMO123]

Hi All,

i have been looking for a VBA code that automatically sorts my data when it is entered/ updated. if there is a value in column I the VBA should move the row to the next row that is not blank in column I resulting in having all blank cells at the bottom. i know you can us a sort but i want it to trigger automatically upon entry can someone help me with some code or if a sort can trigger automatically this would equally work?

Thank you!

 

[Fluff]

Something along the lines of

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Column <> 9 Then Exit Sub
   Range("A1", Range("A" & Rows.count).End(xlUp)).Resize(, 11).Sort key1:=Range("I1"), order1:=xlAscending, Header:=xlYes
End Sub

 

[DMO123]

Works perfectly - thank you!

 

[Fluff]

Glad to help & thanks for the feedback