Otomatik sıralama

[s.savas]

Merhaba arkadaşlar.
Alıntı yolu ile uyarladığım aşağıdaki kod, sıralama yaparken hücredeki formülleri de beraberinde taşımaktadır.
I,M,Q,U,Y,AC,AG.AK,AO,AS,AW ve BA sütunlarında bulunan formüllerin sabit kalması için kodun revize edilmesi gerekiyor.
Yardımcı olacak arkadaşlara teşekkür ederim.

Private Sub cmdYENİKAYIT_Click()

Set sh = Sheets("DEPO")
satır = Range("A65536").End(3).Row + 1

If TextBox2.Value = "" Then
MsgBox "Malzemenin Adını Giriniz", vbMsgBoxRtlReading + vbCritical, "s.s."
Exit Sub
End If

If TextBox5.Value = "" Then
MsgBox "Malzemenin / İlacın Miktarını Giriniz", vbMsgBoxRtlReading + vbCritical, "s.s."
Exit Sub
End If

If TextBox6.Value = "" Then
MsgBox "Kritik Seviye Sınırını Giriniz", vbMsgBoxRtlReading + vbCritical, "s.s."
Exit Sub
End If

sh.Cells(satır, "A").Value = Label10
sh.Cells(satır, "B").Value = TextBox2.Value
sh.Cells(satır, "C").Value = DTPicker1.Value
sh.Cells(satır, "E").Value = TextBox6.Value
sh.Cells(satır, "H").Value = TextBox5.Value

TextBox2.Value = Empty
TextBox5.Value = Empty
TextBox6.Value = Empty

Unload Me
UserForm1.Show 0

Range("b2:bD65536").Select
Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Key2:=Range("bD2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

End Sub