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 vote361 views1 answer
Worksheet.pastespecial textbox
VBA
-1 vote351 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote345 views1 answer
Vbs write file
VBA
0 vote404 views1 answer
If statement vdhl
VBA
0 vote337 views1 answer
Open application from vbnet
VBA
0 vote372 views1 answer
Prive sub enter clicked vb
VBA
0 vote335 views1 answer
Excel autofilter vba
VBA
0 vote349 views1 answer
Vba change named range address
VBA
0 vote349 views1 answer
Vbnet line graph smooth lines
VBA
0 vote333 views1 answer
Docker vboxmanage not found
VBA