Looping Code for Pasting

Hi, I have borrowed this code form Ron Debruin and am trying to modify it to meet my needs.

I think everyhting works well except for how I am trying to loop the pasting sequence so that I start pasting rows at row 200 and increment down 1 row at a time.

I have added the Dimension "R" into the code to try to make it loop

here's what I have so far:

Please Login or Register  to view this content.

Thank you, I have now got the program to paste one line in row 200, but it will not increment down any additional rows.

Do I have the "R = R+1" in the right location?

Perhaps I have made this too hard. I need to find "wine" in column "M" and cut/paste every row with wine listed to a new row starting with row 200 and continuing down

will I need to insert a line of code to past the copied values?

THANK YOU!!!

This worls great.

Any idea when I change the "copy" to "cut" I get an error message?

"The command you chose cannot be performed with multiple selections"

That will work. Thank you so much for your help with this. You have no idea how good it has been to get this going.