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 vote170 views1 answer
Send webhook vbscript
VBA
0 vote183 views1 answer
Vba keep command window open
VBA
1 vote168 views1 answer
VBA Loop through recordset
VBA
-1 vote186 views2 answers
Excel vba delete empty rows
VBA
1 vote172 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote178 views1 answer
Discern between file and folder given path vb.net
VBA
0 vote159 views1 answer
Vba argument is set
VBA
5 votes170 views1 answer
Excel formula how to create strings containing double quotes
VBA
-1 vote165 views1 answer
For i in range vba
VBA
0 vote186 views1 answer
For each item in folder outlook vba
VBA