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

1 vote205 views1 answer
Vba format string as cash
VBA
2 votes183 views1 answer
Date format for ms chart vb.net
VBA
0 vote177 views1 answer
Vb net dgv doesn't keep currency format
VBA
5 votes211 views1 answer
Excel vba how to unit test vba code
VBA
3 votes195 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote187 views1 answer
Rotate image by any angle vb.net
VBA
1 vote202 views1 answer
Vba optional
VBA
0 vote203 views1 answer
Excel vba set cell value to empty
VBA
0 vote184 views1 answer
Excel vba delete folder
VBA
0 vote185 views1 answer
Loop through each cell in dgv vbnet
VBA