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 vote190 views1 answer
Excel vba unmerge sheet
VBA
0 vote188 views1 answer
Vba remove the first character of string
VBA
0 vote176 views1 answer
Vbnet check if string is only symbols
VBA
0 vote185 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote176 views1 answer
Vba find sub dictionary
VBA
0 vote184 views1 answer
Vba DisplayGridlines
VBA
0 vote192 views1 answer
Vba file chooser
VBA
5 votes195 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote180 views1 answer
Vba format currency
VBA
0 vote192 views1 answer
Delete rows in excel vba code
VBA