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 vote200 views1 answer
Vba exit while
VBA
0 vote213 views1 answer
Excel vba unlock sheet without password
VBA
3 votes221 views1 answer
Excel vba change format of cell
VBA
0 vote201 views1 answer
Vb.net visible property dgv collumn not working
VBA
0 vote201 views1 answer
Vba first line of string
VBA
8 votes202 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote206 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote260 views1 answer
Wpf dark title bar
VBA
1 vote201 views1 answer
Close form vba
VBA
0 vote202 views1 answer
Vba line feed
VBA