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

3 votes195 views1 answer
Vba continue for each loop
VBA
0 vote169 views1 answer
Vba add shape oval
VBA
0 vote182 views1 answer
Vba find sub dictionary
VBA
0 vote184 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote174 views1 answer
Vba find last column in a row with data
VBA
0 vote207 views2 answers
Get unique random number in vb.net
VBA
1 vote176 views1 answer
Excel vba first and last row and column in range
VBA
0 vote183 views1 answer
Vbnet cycle through charaters in string
VBA
1 vote182 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
12 votes330 views1 answer
Excel vba write string to text file
VBA