Macro Not Working On Filtered Data

hi,
this code is not working on filtered data, otherwise working very well,
plz help

Sub EXCEL_TO_TALLY_EXCEL_FILE_XXXX() '''''''''''''''''''''''''''ADIL TO EXCEL TF FILE
With Application
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
End With

Dim x11, x12, x13, x14, x15, x16, x17
    With Sheets("NEFT-MT-APR-24-25").[D1:N500]
            x11 = .Columns(1).SpecialCells(12) 'NARRATION
            x12 = .Columns(2).SpecialCells(12) 'AMOUNT
            x13 = .Columns(7).SpecialCells(12) 'REF NUMBER
            x14 = .Columns(9).SpecialCells(12) 'DATE
            x15 = .Columns(10).SpecialCells(12) 'NAME
            x16 = .Columns(11).SpecialCells(12) 'SHEET NUMBER
        End With
        Windows("X Vouchers - Purchase Transactions With StockItems PAYMENT.xlsm").Activate
        With ActiveWorkbook.Sheets("PAYMENT DETAIL")
            .Cells(.Rows.Count, 5).End(xlUp).Offset(1).Resize(UBound(x11, 1)) = x11
            .Cells(.Rows.Count, 4).End(xlUp).Offset(1).Resize(UBound(x12, 1)) = x12
            .Cells(.Rows.Count, 11).End(xlUp).Offset(1).Resize(UBound(x13, 1)) = x13
            .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Resize(UBound(x14, 1)) = x14
            .Cells(.Rows.Count, 3).End(xlUp).Offset(1).Resize(UBound(x15, 1)) = x15
            .Cells(.Rows.Count, 6).End(xlUp).Offset(1).Resize(UBound(x16, 1)) = x16
            
            
End With
With Application
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
End With
End Sub