Makro til at sorterer kolonne med datoer

Private Sub Worksheet_Change(ByVal Target As Range)

      If Not Intersect(Range("J2:J100"), Target) Is Nothing Then
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
      End If
     
        If Not Intersect(Range("H2:H100"), Target) Is Nothing Then
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = False
        End If
    Next c
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("H2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("H2:H100")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
        End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

      If Not Intersect(Range("J2:J100"), Target) Is Nothing Then
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
      End If

        If Not Intersect(Range("H2:H100"), Target) Is Nothing Then

    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = False
        End If
    Next c

            ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
            ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("H2:H100"), _
                SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets("Ark1").Sort
                .SetRange Range("A2:J100")
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With

    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
        End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    '1 Ved ændring i område, og der er et x, skjules rækken
      If Not Intersect(Range("J2:J100"), Target) Is Nothing Then
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
      End If
     
    '2 Ved ændring i område
        If Not Intersect(Range("H2:H100"), Target) Is Nothing Then
       
    '2,1 og der er et x, vises rækken inden sortering
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = False
        End If
    Next c
   
    '2,2 Sorterer område A2:J100 efter kolonne H med ældste først
            ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
            ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("H2:H100"), _
                SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets("Ark1").Sort
                .SetRange Range("A2:J100")
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
           
    '2,3 og der er et x, skjules rækken igen
    For Each c In Range("J2:J100").Cells
        If c.Value = "x" Then
            c.EntireRow.Hidden = True
        End If
    Next c
        End If
End Sub