copy/paste array

[rharn]

Hello all, I am trying to create a relatively simple copy and paste sub. The objective is that certain cell addresses are stored in an array (Results1()) and I am trying to extrapolate the row which it is in to copy an entire row of data into another excel sheet. I have the following so far and currently I am getting an object required error when I try to define what my 'NextRow' is. Any advice or feedback would be greatly appreciated! thanks in advance.

        For i1 = LBound(Results1) To UBound(Results1)
            Set NextRow = Worksheets("searchresult").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
                Range(Results(i1)).EntireRow.Copy NextRow
        Next i1

 

[Sektor]

I already answered you in your previous post.