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 vote206 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote208 views1 answer
Vba len variant
VBA
0 vote210 views1 answer
Visual basic msdos
VBA
0 vote204 views1 answer
Excel vba disable copy paste
VBA
8 votes521 views1 answer
Excel vba make word from bytes
VBA
8 votes346 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote228 views1 answer
Excel vba ternary
VBA
0 vote224 views1 answer
Vba listbox remove all items
VBA
0 vote210 views1 answer
Windows Forms dark title bar
VBA
0 vote245 views4 answers
Jwt token vb.net validation
VBA