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

5 votes140 views1 answer
Excel vba low word from Long Integer
VBA
0 vote133 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote131 views1 answer
Vba change active sheet
VBA
5 votes146 views2 answers
Excel vba write to the windows registry
VBA
1 vote115 views1 answer
Excel format cell as kilowatts
VBA
3 votes122 views1 answer
Extract the nth word from a text string
VBA
0 vote118 views1 answer
Open application from vbnet
VBA
0 vote121 views1 answer
Do while not vb.net
VBA
1 vote120 views1 answer
Vba delete array element
VBA
0 vote118 views1 answer
Vba len variant
VBA