Makro sortering?

Jeg har brugt nedenstående makro til sortering,men den kan kun sorterer hvis der ingen formler er i cellen. Et forslag?
Private Sub CommandButton1_Click()
Sheets(2).Select
ActiveSheet.Columns("A:F").Columns("A:F").Select
ActiveSheet.Range("F1").Activate
    Selection.Sort Key1:=ActiveSheet.Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Sheets(1).Activate
End Sub