This line of code is looking at column A on the "completed" sheet to spot the "last row" of current data and note the "next row" for the target later:
NR = wsI.Range("A" & wsI.Rows.Count).End(xlUp).Row + 1
I added another sheet reference into that, underlined above, try that first.
If column A is a bad column to use for that test, then change that to the correct column to check, column B or column W, whatever, then try again.
I have no comment on your shared workbook issue, overcoming network security is often no small feat. Perhaps a new thread to specifically address that question without the need for the full macro as it's not really related to that.
Bookmarks