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 vote285 views1 answer
Vba string
VBA
0 vote264 views1 answer
Visual basic msdos
VBA
0 vote254 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote277 views1 answer
Excel vba disable keyboard input
VBA
0 vote279 views1 answer
Find control with name vb
VBA
-1 vote300 views1 answer
Code for reading letters only in vb 6
VBA
0 vote282 views1 answer
Vba collection contains
VBA
0 vote277 views1 answer
VB get external IP address
VBA
0 vote275 views1 answer
Excel vba saveas no prompt for overwrite
VBA
2 votes261 views2 answers
Excel vba copy values range to another range
VBA