Hi, ich habe mir eine Hilfsspalte gebastelt, in der ich die beiden Werte verbunden habe.
Als erstes erstelle ich links neben meiner Statusspalte eine neue Spalte, benenne sie mit "Zum Kopieren", fülle sie mit den beiden links daneben liegenden Spalten Datum & Uhrzeit.

Vor Makro:
Datum / Uhrzeit / Status

nach Makro:
Datum / Uhrzeit / Zum Kopieren / Status

Danach fixiere ich die obere Zeile (line=2) und schalte den Autofilter ein.
Danach sortiere ich die neue Spalte abwärts. Wenn du aufwärts filtern möchtest musst du "Order:=xlDescending," gegen "Order:=xlAscending," austauschen.
Die Range musst du nach deinen Gegebenheiten anpassen.

Viel Spass

Bernd

Columns(STATUS).Select
    Selection.Insert Shift:=xlToRight
    Range(ZumKopieren & "1").Select
    ActiveCell.FormulaR1C1 = "Zum Kopieren"
    Range(ZumKopieren & "2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"
    Selection.NumberFormat = "dd/mm/yy;@"
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

'    Selection.AutoFilter
Dim line As Integer
line = 2

    Rows(line).Select
     ActiveWindow.FreezePanes = False
    ActiveWindow.FreezePanes = True
 
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    Rows(line - 1).Select
    Selection.AutoFilter

' 
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add2 Key:= Range("N1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= xlSortNormal   'Range anpassen
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With