ekteki kodu modül olrak ekleyin otomatikman sıralamayı her açlışıta kendisi yapacaktır. yok ben kendim yapayım derseniz macro olarak yapmak lazım. hangisini isterseniz.

hem kodu ekledim hemde ikisine ait birer örnek.

Not satır sayısı önemli değil yeterki sutun D den dışarı çıkmasın

Private Sub auto_open()
Range("A265000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("H2").Select
End Sub