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 vote351 views1 answer
Excel vba disable screen update
VBA
0 vote351 views1 answer
Vba multiple optional arguments
VBA
3 votes344 views1 answer
Vba request json
VBA
1 vote285 views1 answer
Vba Remove Case Sensitivity
VBA
31 votes466 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote353 views1 answer
Vba run command
VBA
0 vote322 views1 answer
Vbnet display all axis labels in cahrt
VBA
5 votes386 views1 answer
Xlvba double quotes in string literal
VBA
1 vote378 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote323 views1 answer
Windows Presentation Foundation dark title bar
VBA