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 vote175 views1 answer
Vba variable number of arguments
VBA
0 vote164 views1 answer
Excel vba prevent saving workbook
VBA
0 vote164 views1 answer
Vba shape transparent
VBA
1 vote156 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote161 views1 answer
Vlookup columns not next to each other
VBA
0 vote171 views1 answer
Label de tableau dans des label.text en VBA
VBA
25 votes314 views3 answers
String to date vb
VBA
0 vote172 views2 answers
Vba remove line breaks
VBA
0 vote226 views1 answer
Excel vba add reference programmatically
VBA
0 vote165 views1 answer
Vba full date format
VBA