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 vote202 views1 answer
Vbnet round to nearnest thousand
VBA
5 votes209 views1 answer
Excel vba left word from Long Integer
VBA
0 vote241 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote191 views1 answer
Excel vba extract year
VBA
1 vote206 views2 answers
Vba string length
VBA
1 vote184 views1 answer
Excel vba hide zero values
VBA
0 vote190 views1 answer
Vbscript check if string contains
VBA
0 vote205 views1 answer
Vba collection contains
VBA
1 vote191 views1 answer
Highlight selected cell in excel vba
VBA
0 vote203 views1 answer
Dlete rows with blanks and space " " vba
VBA