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 vote155 views1 answer
Vba change named range address
VBA
8 votes167 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote159 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote156 views1 answer
Loop through lines in text file vb net
VBA
0 vote186 views1 answer
Excel vba move down to next visible cell
VBA
0 vote150 views1 answer
Vba add shape oval
VBA
15 votes230 views1 answer
Excel vba wait
VBA
-1 vote167 views1 answer
How to correct a number to 2 decimal places in vba
VBA
18 votes334 views2 answers
Vba make word from bytes
VBA
0 vote115 views1 answer
Excel vba arrondir
VBA