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 vote225 views1 answer
Remove frist letter from string vbnet
VBA
0 vote229 views1 answer
Vbs write file
VBA
0 vote235 views1 answer
Vlookup columns not next to each other
VBA
20 votes304 views1 answer
Excel vba factorial
VBA
0 vote235 views1 answer
Vbnet check if string is only numbers
VBA
3 votes239 views1 answer
Excel vba change format of cell
VBA
1 vote226 views1 answer
Excel vba autofit
VBA
0 vote231 views1 answer
Excel vba center userform
VBA
0 vote251 views1 answer
Vba array dimensions
VBA
22 votes365 views1 answer
Xl vba check for folder
VBA