Paste Data Into A Filtered List

ajb1131,

This does work, but I am sure it can be approved upon.

See the attached workbook "Data Filter AutoFilter copy another sheets cells to SpecialCells xlCellTypeVisible - ajb1131 - SDG.xls".

Then run the "CopyPasteToFilter" macro.


Have a great day,
Stan

Try this code

Sub CopyToFilteredRows()
    Dim rVis   As Range
    Dim cl     As Range
    Dim Rw     As Long

    Rw = 1
    With Sheet1
        Set rVis = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible)
    End With
    For Each cl In rVis
        MsgBox Rw
        cl.Offset(0, 1).Value = Sheet2.Cells(Rw, 1).Value
        Rw = Rw + 1
    Next cl
End Sub