Move Row to Another Sheet & Delete From Original Data

Hi Holly,

Try replacing:
sourceSheet.Rows(i).Copy Destination:=targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)

With:
sourceSheet.Rows(i).Copy Destination:=targetSheet.Cells(targetSheet.Rows.Count, "B").End(xlUp).Offset(1, -1)

From my understanding of your post, this would fix the problem you are having.

Personally, I am not aware of how to make it run continuously. I am sure someone else here may know how to do that. The closest thing I can think of is to have a Worksheet_SelectionChange trigger, that runs the module. (Link To Read)

There may be other triggers that better do what you want.

Hi there,

In view of the fact that you're stepping through the rows from top to bottom (rather than from bottom to top), I doubt that the code will correctly move all of the required rows.

Have a look at the attached version of your workbook and see if it does what you need - it uses the following code:

Please Login or Register  to view this content.

The highlighted values may be changed to suit your requirements.


Hope this helps.

Regards,

Greg M