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 vote236 views1 answer
Vba sort the data Z to A
VBA
0 vote222 views1 answer
Vbs send keys
VBA
0 vote212 views1 answer
Find days in month vba
VBA
0 vote235 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote238 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
1 vote222 views1 answer
Sort using vba
VBA
2 votes230 views1 answer
Excel vba check if string entirely alpha
VBA
0 vote250 views1 answer
Vba registry settings
VBA
0 vote255 views2 answers
Excel vba number format file size
VBA
0 vote243 views1 answer
Vba nested dictionary
VBA