VBA Advanced Filter - Keep Blank Rows and put them at the top

I have the code below, which works to filter exactly how I need it to except that I would like to be able to include any blank rows at the top of filtered that are within the Range "Table" so I am able to create a filter and then add more items that would be included in that same filter. Those new items would be blank rows of data at first but they would be filled in right after creating a new row/record. Is there any way to modify this so blank rows would just stay at the top and still be visible whenever a filter is applied? Something like ActiveSheet.ShowBlankRows....

Sub Insert_Row()
'
' Insert_Row
'

'
    Application.ScreenUpdating = False

    ActiveSheet.Unprotect
    
If ActiveSheet.AutoFilterMode Then
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
ElseIf ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If
    Rows("5:7").Select
    Selection.EntireRow.Hidden = False
    Rows("8:10").Select
    Selection.EntireRow.Hidden = False
    Range("A6:AH6").Select
    Selection.Copy
    Range("A10:AH10").Select
    Selection.Insert Shift:=xlDown
    Rows("6:6").Select
    Selection.EntireRow.Hidden = True
    Rows("9:9").Select
    Selection.EntireRow.Hidden = True
    
    Range("Table").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("B4:AH5"), Unique:=False

    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
    
    Range("B10").Select
    
    Application.ScreenUpdating = True
    
End Sub

Thanks for your help!

I was able to find a way around this problem with a solution I'm happy with.

I was not able to find anything at all on the Internet to cause empty rows within the table range to be placed at the top of the list when there is a filter applied and judging by that and the lack of responses to this post, it's not possible. The answer came to me this morning just as I was waking up... Seems I do my best thinking when I'm half in and half out of sleep. I was making this far more difficult than it needed to be. Since I needed the new record (row) to be visible when inserted while a filter was applied using the entry in the filter cell B5, I used a copy and paste function in my code to copy the filter cell and paste the value into the new record B10 cell so it becomes within the parameters of the filter. New record stays visible and at the top of the other filtered records. Works like a charm.

Sub Insert_Row()
'
' Insert_Row
'

'
    Application.ScreenUpdating = False

    ActiveSheet.Unprotect
    
If ActiveSheet.AutoFilterMode Then
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
ElseIf ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If
    
    Range("A6:AH6").Select
    Selection.Copy
    Range("A10:AH10").Select
    Selection.Insert Shift:=xlDown
    
    Range("B5").Copy
    Range("B10").PasteSpecial xlPasteValues
    
    Range("Table").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("B4:AH5"), Unique:=False
   
    Rows("4:4").Select
    Selection.EntireRow.Hidden = True
    
    Rows("6:6").Select
    Selection.EntireRow.Hidden = True
    
    Rows("9:9").Select
    Selection.EntireRow.Hidden = True
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
   
    Range("B10").Select
    
    Application.ScreenUpdating = True
    
End Sub