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 vote336 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote216 views2 answers
Excel vba prevent save
VBA
0 vote238 views1 answer
Supprimer la valeur de celule vba
VBA
3 votes235 views1 answer
Vba make long from two words
VBA
0 vote238 views1 answer
Vba type
VBA
0 vote269 views1 answer
Excel vba round to whole number
VBA
0 vote242 views1 answer
Tester si une case est vide vba
VBA
0 vote220 views1 answer
Afficher un message d'erreur vba
VBA
0 vote258 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
0 vote232 views1 answer
Visual basic msdos
VBA