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 vote284 views1 answer
Vba compile error object required
VBA
0 vote307 views1 answer
Vba is integer
VBA
0 vote288 views1 answer
Excel vba delete folder
VBA
0 vote299 views1 answer
Find control with name vb
VBA
0 vote333 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote290 views1 answer
Dynamic array vba
VBA
0 vote293 views1 answer
Make all controls in an area not visable vb
VBA
0 vote304 views1 answer
Vba remove last vbcrlf
VBA
0 vote313 views1 answer
VBA
VBA
0 vote281 views1 answer
Excel vba current folder
VBA