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

1 vote330 views1 answer
Add control vb
VBA
0 vote358 views1 answer
Excel vba named range exists
VBA
0 vote350 views1 answer
Nested if else in vb.net
VBA
5 votes391 views1 answer
Vba low byte from INTEGER
VBA
0 vote347 views1 answer
Excel filter by date not working vba
VBA
15 votes460 views2 answers
Xl vba dynamic string array
VBA
0 vote341 views1 answer
Vba sheet hide unhide
VBA
0 vote354 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote332 views1 answer
Vba first cell in range
VBA
0 vote341 views1 answer
Excel protect cells with formulas
VBA