Şunu daha önce söyleseydinize.
Verdiğm örnekteki kodları aşağıdaki gibi revize edin.

Dim Alan As Range



Sub Düğme55_Tıklat()

    Set Alan = Intersect(Range("A1").CurrentRegion, Columns("B:E"))

    Alan.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    Set Alan = Nothing

End Sub



Sub Düğme167_Tıklat()

    Set Alan = Intersect(Range("A1").CurrentRegion, Columns("B:E"))

    Alan.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _

        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

    Set Alan = Nothing

End Sub