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 vote193 views1 answer
Remove frist letter from string vbnet
VBA
0 vote216 views1 answer
Vba pass named range to function
VBA
0 vote216 views1 answer
Windows Presentation Foundation dark title bar
VBA
-1 vote239 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote254 views1 answer
Vba ternary
VBA
0 vote207 views3 answers
Write to text file vb.net
VBA
0 vote168 views1 answer
Vba set vs dim
VBA
0 vote213 views1 answer
Telephon call in vba
VBA
0 vote228 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote217 views1 answer
String contins in vba
VBA