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 vote165 views1 answer
Change form background image vb
VBA
1 vote183 views2 answers
Vba string length
VBA
0 vote163 views1 answer
Vb test if reference is null
VBA
0 vote167 views1 answer
Vba get text file content
VBA
0 vote175 views1 answer
Vbnet hex to binary
VBA
0 vote161 views1 answer
Priavte sub with multiple handels find sneder
VBA
3 votes199 views2 answers
Vba date to string
VBA
0 vote161 views1 answer
Vba argument is set
VBA
0 vote176 views1 answer
Vba html document reference
VBA
0 vote179 views1 answer
Find if year is leap year vb
VBA