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 vote319 views1 answer
Vba min
VBA
3 votes326 views1 answer
Excel insert blank row for value change in column
VBA
1 vote310 views1 answer
Excel vba compare 2 rows
VBA
0 vote322 views1 answer
Vba multiple optional arguments
VBA
0 vote323 views1 answer
Excel vba DisplayAlerts
VBA
0 vote297 views1 answer
Excel vba disable mouse click
VBA
0 vote308 views1 answer
Freeze panes vba
VBA
0 vote338 views1 answer
Excel vba Column Name from Column Number
VBA
1 vote296 views1 answer
Excel vba get column name from number
VBA
0 vote353 views1 answer
Vbs run with cscript
VBA