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

1 vote319 views1 answer
Excel vba compare 2 rows
VBA
0 vote332 views1 answer
Vba excel parser xml
VBA
0 vote318 views1 answer
String contins in vba
VBA
0 vote291 views1 answer
Create new worksheet excel visual basic
VBA
0 vote327 views1 answer
Add text to combobox drop down vb
VBA
0 vote314 views1 answer
Vbnet get file name from path
VBA
5 votes349 views1 answer
Vba low word from Long Integer
VBA
0 vote307 views1 answer
Excel vba current folder
VBA
1 vote294 views1 answer
Excel vba hide zero values
VBA
0 vote342 views2 answers
S yyyy-MM-dd em vb net
VBA