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 vote239 views1 answer
Vba set vs dim
VBA
0 vote290 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote295 views1 answer
Excel vba calculate
VBA
4 votes300 views2 answers
Vba last row
VBA
0 vote287 views1 answer
Xlbycolumns is not declared
VBA
0 vote307 views1 answer
VBA
VBA
1 vote281 views1 answer
Excel vba autofit
VBA
5 votes291 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote310 views1 answer
Vba search string position
VBA
0 vote261 views1 answer
Excel autofilter vba
VBA