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 vote168 views1 answer
Excel vba round to whole number
VBA
5 votes170 views1 answer
Excel vba get low byte from INTEGER
VBA
0 vote145 views1 answer
Vb check if row has column
VBA
0 vote152 views1 answer
Vbnet find highest value in chart
VBA
0 vote153 views4 answers
How to continue formula in below line in vba code
VBA
1 vote141 views1 answer
VBA Loop through recordset
VBA
0 vote158 views1 answer
Vba copy file
VBA
0 vote149 views1 answer
Excel vba delete folder
VBA
4 votes157 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
0 vote156 views1 answer
Build an index all files of a FTP site
VBA