Предотвращение расширенного фильтра VBA для изменения формата назначения

Question

Мне нужно исправить одну или две строки для моего кода. в основном я использую расширенный фильтр для копирования с одного листа на другой на основе заданных критериев и удаления пробелов после того, как он скопировал их. Мой вывод такой, какой я хотел, как бы то ни было, этот код меняет форматирование моего целевого листа (принимая форматирование входного листа). Как мне его сохранить. Я пытаюсь действовать эффективно, поэтому я был бы признателен за одно изменение лайнера в коде. Ниже мой код. Я не могу понять, как это исправить. Я надеюсь, что приведенный здесь код говорит сам за себя

Sub AdvancedFilter_ColumnsGS()


    Dim shRead As Worksheet, shWrite As Worksheet
    Set shRead = ThisWorkbook.Worksheets("FA Client Accounts And Contacts")
    Set shWrite = ThisWorkbook.Worksheets("Output")


    shWrite.Cells.Clear


    shWrite.Range("D5").Value2 = "FA Partner"
    shWrite.Range("E5").Value2 = "FA Partner Email ID"


    If shRead.FilterMode = True Then
        shRead.ShowAllData
    End If


    Dim rgData As Range, rgCriteria As Range
    Set rgData = shRead.Range("C5").CurrentRegion


    Set rgCriteria = shRead.Range("AC5:AN6")


    rgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rgCriteria _
                , CopyToRange:=shWrite.Range("D5:E5")

       Sheets("Output").Select
       Range("D5:D1500").Select
       Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub