[ChrisGT7]

Είναι εύκολο να ανεβάσεις το αρχείο σου με δοκιμαστικά δεδομένα;

Πάντως τρέχοντας τον κώδικά σου με τις αλλαγές που σου ανέφερα τρέχει κανονικά στο δικό μου. Δηλαδή:

Sub copy_filtered_data()
    
Dim count_col, count_row As Integer
Dim orig, output As Worksheet

ThisWorkbook.Sheets("Sheet3").Cells.ClearContents
Worksheets("Sheet1").Activate

Set orig = ThisWorkbook.Sheets("Sheet1")
Set output = ThisWorkbook.Sheets("Sheet3")

count_col = WorksheetFunction.CountA(Range("A7", Range("A7").End(xlToRight)))
count_row = WorksheetFunction.CountA(Range("A7", Range("A7").End(xlDown)))

Range("Sheet1!A7").AutoFilter 2, ActiveSheet.Cells(2, 1).Value

orig.Range(Cells(7, 1), Cells(count_row, count_col)).SpecialCells(xlCellTypeVisible).Copy
output.Cells(1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Worksheets("Sheet1").ShowAllData
Worksheets("Sheet1").AutoFilterMode = False
Worksheets("Sheet3").Activate
ActiveSheet.Range("A1").Select

End Sub