Copy and paste link to update original data

[sazza]

Hi Guys,

Relative newbie here ... I have found code on here an I have made it do what I want but I want to see how I can do a paste special link option in the below line if you could so kindly assist me

      For i = 1 To LastRow
       With Worksheets("Details")
           If .Cells(i, 7).Value > 0 Then
               .Rows(i).Copy Destination:=Worksheets("Reads").Range("A" & j)
                            j = j + 1
           End If
       End With
   Next i

Please and thanks