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

0 vote194 views1 answer
Vba add shape oval
VBA
0 vote213 views1 answer
Excel last used row
VBA
0 vote197 views1 answer
How to use if condition in time vba
VBA
0 vote232 views1 answer
Vbnet check if string is only letters
VBA
4 votes208 views2 answers
Vba create folder if not exist
VBA
0 vote202 views1 answer
Excel vba hide gridlines
VBA
0 vote208 views1 answer
Ribbon show/hide
VBA
1 vote196 views1 answer
Vba delete array element
VBA
0 vote191 views1 answer
Excel vba concatenate range
VBA
15 votes491 views2 answers
Xl vba dynamic string array
VBA