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 vote161 views1 answer
Set font for ms chart vb.net
VBA
0 vote158 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
5 votes103 views1 answer
Vlookup vba
VBA
1 vote158 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
5 votes135 views1 answer
Vba array worksheet.index
VBA
0 vote150 views1 answer
Excel vba ternary
VBA
0 vote156 views1 answer
Vbnet check if sting contians symbols
VBA
1 vote145 views2 answers
Vba remove first 2 characters from string
VBA
0 vote153 views1 answer
Excel vba clear filter
VBA
1 vote149 views1 answer
Excel vba hide zero values
VBA