VBA Script when removing row to a new sheet

[Ian Denney]

Hi,

I have an excel spreadsheet where if I enter Yes into column F ("Remove From finder") on the "Finder" Sheet the row will be moved automatically to the next empty row on the Sheet Labeled "Removed". See attached screen shot.

I have a VBA script (see attached screen shot) that should do this. However, I find that it will paste the removed row into a random row e.g. instead of say row 4 (the next empty row it will randomly paste into say row 443 etc.

Can anyone suggest what may be causing this in the VBA script?



Thanks in advance for any help.

Ian

 

[LongToast]

Hi,

I have an excel spreadsheet where if I enter Yes into column F ("Remove From finder") on the "Finder" Sheet the row will be moved automatically to the next empty row on the Sheet Labeled "Removed". See attached screen shot. View attachment 117086

I have a VBA script (see attached screen shot) that should do this. However, I find that it will paste the removed row into a random row e.g. instead of say row 4 (the next empty row it will randomly paste into say row 443 etc.

Can anyone suggest what may be causing this in the VBA script?



Thanks in advance for any help.

Ian

and where is the script...

 

[Ian Denney]

and where is the script...

The script is in the Finder tab on the spreadsheet

and where is the script...

 

[Ian Denney]

The script is in the Finder tab on the spreadsheet

There are 2 tabs in the spreadsheet: "Finder" and "Removed". I want to move rows from Finder to Removed based on the value in column F (removed from finder) on Finder tab to the next vacant row in the Removed sheet

 

[LongToast]

The problem is when data ready to copy to "Removed" sheet it takes last row from "Finder" sheet, if last row from "Finder" sheet is 200 then it will copy to "Removed" sheet in row 200 too, change this :

Lastrow = Sheets("Finder").Cells(Rows.Count, "F").End(xlUp).Row + 1

to :

Lastrow = Sheets("Removed").Cells(Rows.Count, "F").End(xlUp).Row + 1