Slet rækker med vba

Sub Slet_x()

On Error GoTo errorhandler

    'Sætter autufilter
    ActiveSheet.Range("$A$1").AutoFilter Field:=1, Criteria1:="x"
   
    With ActiveSheet.AutoFilter.Range
        'Første række
        frow = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible).Row
    End With
        'Sidste række
        lrow = Range("A" & Rows.Count).End(xlUp).Row
       
    'Sletter rækker med x i kol. A
    Rows(frow & ":" & lrow).Delete Shift:=xlUp
   
errorhandler:
    'Check om der er fiter
    If ActiveSheet.FilterMode = True Then
   
    'Vis alle data
    ActiveSheet.ShowAllData
    End If
   
End Sub

Sub Slet_x()
Dim bytAns As Long

On Error GoTo errorhandler

    'Sætter autofilter
    ActiveSheet.Range("$A$1").AutoFilter Field:=1, Criteria1:="x"
 
    With ActiveSheet.AutoFilter.Range
        'Første række
        frow = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible).Row
    End With
        'Sidste række
        lrow = Range("A" & Rows.Count).End(xlUp).Row

    bytAns = MsgBox("Du har anmodet om at slette viste rækker." & _
        vbCrLf & "Ønsker du det?", vbYesNo + vbQuestion, _
        "Bekræft sletning.")
   
    If bytAns = vbYes Then
        'Sletter rækker med x i kol. A
        Rows(frow & ":" & lrow).Delete Shift:=xlUp
    Else
   
    End If
 
errorhandler:
    'Check om der er fiter
    If ActiveSheet.FilterMode = True Then
 
    'Vis alle data
    ActiveSheet.ShowAllData
    End If
 
End Sub