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 vote131 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote156 views2 answers
Get unique random number in vb.net
VBA
5 votes164 views1 answer
Vba low word from Long Integer
VBA
0 vote127 views1 answer
Vbnet line graph smooth lines
VBA
0 vote136 views1 answer
Columns dont autoresize on program start vb.net
VBA
25 votes259 views2 answers
Excel vba folder exist
VBA
0 vote179 views1 answer
Excel vba protect content
VBA
1 vote140 views1 answer
Excel vba autofit
VBA
0 vote144 views1 answer
Vba count all row
VBA
0 vote135 views1 answer
Vba is integer
VBA