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 vote129 views1 answer
Excel vba DisplayAlerts
VBA
0 vote120 views1 answer
Vb test if reference is null
VBA
1 vote133 views1 answer
Set font for ms chart vb.net
VBA
-1 vote124 views2 answers
Excel vba delete empty rows
VBA
0 vote122 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote135 views1 answer
Excel vba urlmon
VBA
1 vote127 views1 answer
Vb.net get name by Selection Changed
VBA
0 vote118 views1 answer
Excel vba scroll to cell
VBA
3 votes133 views2 answers
Vba active workbook path
VBA
0 vote121 views1 answer
Replace spaces with underscores vbnet
VBA