Copy row from one Excel sheet to another in same workbook - add below do not replace

[seider]

Dear Friends of Excel,

I have a issue I hope that you can help me with.

I have 2 sheets in a workbook - one called ("2. Identification") another called ("4. Main opportunities").

I found below code to copy all the rows marked with "Yes" from ("2. Identification") to ("4. Main opportunities").

Its working fine, the issue is that when i run the macro is it replacing the text. I would like it to add it below a already inserted row. Can you help adding that possibility to the code?

Have tried to search in the forum with no luck.

Please let me know if you want any further clarifications.

seider

Code:
Sub CopyROW()

Set I = Sheets("2. Identification")
Set e = Sheets("4. Main opportunities")
Dim d
Dim j
d = 1
j = 2

Do Until IsEmpty(I.Range("K" & j))

If I.Range("K" & j) = "Yes" Then
d = d + 1
e.Rows(d).Value = I.Rows(j).Value

End If
j = j + 1
Loop
End Sub

 

[seider]

Thanks for quick and great support Fluff,

Working perfect.

seider

 

[Fluff]

Glad to help & thanks for the feedback