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 vote321 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote226 views1 answer
Arq linux
VBA
0 vote231 views1 answer
Check if program is running vbnet
VBA
5 votes252 views1 answer
Vba low word from Long Integer
VBA
0 vote235 views1 answer
Regex numeric digits
VBA
0 vote221 views1 answer
Vba get workbook name
VBA
3 votes209 views1 answer
Excel vba get the workbook full file name with path
VBA
2 votes208 views2 answers
Excel vba copy values range to another range
VBA
4 votes214 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote202 views1 answer
Change "location" of binding navigator vb
VBA