Создать CSV для заданного диапазона (VBA)

Question

Я хочу создать .csv в диапазоне A6: X20000 и пропустить все пустые строки.Я попытался найти и нашел решение , которое я пытался адаптировать, но не смог.Следующий код ВСЕГДА создает A1: X20000 без пропуска пустых строк.

Sub Button_click()
    Dim MyFileName As String
    Dim CurrentWB As Workbook, TempWB As Workbook

    Set CurrentWB = ActiveWorkbook
    ActiveWorkbook.ActiveSheet.UsedRange.Copy

    Set TempWB = Application.Workbooks.Add(1)
    With TempWB.Sheets(1).Range("A6:X20000")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        .AutoFilter 1, "<>" 'Filter to get only non-blank cells

    End With

    'Dim Change below to "- 4"  to become compatible with .xls files
    MyFileName = CurrentWB.Path & "\" & Left(CurrentWB.Name, Len(CurrentWB.Name) - 5) & ".csv"

    Application.DisplayAlerts = False
    TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    TempWB.Close SaveChanges:=False
    Application.DisplayAlerts = True
End Sub