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 vote159 views1 answer
How to set location and size of new from vb
VBA
0 vote169 views1 answer
Vba parameter adodb null value
VBA
0 vote168 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote201 views1 answer
Vb ternary
VBA
4 votes166 views1 answer
Excel vba how to reset usedrange
VBA
1 vote161 views2 answers
Vba function return array
VBA
5 votes183 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
2 votes160 views1 answer
Vba uppercase first letter of each word
VBA
8 votes219 views1 answer
Excel vba make word
VBA
0 vote166 views1 answer
Remove last 8 characters from string vb
VBA