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

8 votes186 views1 answer
Excel vba make word
VBA
1 vote145 views1 answer
Vba login website
VBA
-1 vote161 views1 answer
How save excel through visual basic
VBA
0 vote142 views1 answer
Excel vba linter
VBA
5 votes115 views1 answer
Vba array worksheet.index
VBA
0 vote136 views1 answer
VB Error Code BC30201
VBA
0 vote144 views1 answer
Vba format currency
VBA
0 vote187 views1 answer
Visual basic cmd
VBA
0 vote171 views1 answer
Wpf dark title bar
VBA
0 vote151 views1 answer
How to make a a msgbpx in vbs
VBA