Excel vba copy range with filter

Sub ExtractVisibleCells()

    Dim wsSource, wsExtract As Worksheet

    Set wsSource = ThisWorkbook.Sheets("Source Data")
    Set wsExtract = ThisWorkbook.Sheets("Filtered")

    wsSource.Range("A1:A10").SpecialCells(xlCellTypeVisible).Copy
    wsExtract.Cells(1, 1).PasteSpecial

End Sub

Similar codes

-1 vote218 views1 answer
Vba code to add new column in table
VBA
0 vote227 views1 answer
Make all controls in an area not visable vb
VBA
0 vote221 views1 answer
Vba full date format
VBA
0 vote213 views1 answer
Excel VBA web scraping
VBA
0 vote208 views1 answer
How to self delete a vbscript file
VBA
0 vote215 views1 answer
Check range is in another range vba
VBA
31 votes481 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
8 votes318 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote205 views1 answer
Vba argument is set
VBA
3 votes231 views1 answer
Extract the nth word from a text string
VBA