On Aug 17, 3:46*pm, "Jim Cone" wrote:
Maybe...

* * * *If ThisDate < NextDate Then
* * * * *'Column M cell must be blank
* * * * * If Len(.Cells(R + 1, 13)) = 0 Then .Rows(R + 1).Delete
* * * * * ''? here
* * * *Else
* * * * * If Len(.Cells(R, 13)) = 0 Then .Rows(R).Delete
* * * *End If
--
Jim Cone
Portland, Oregon *USAhttp://tinyurl.com/XLCompanion

.
.
.

"webels"
wrote in ...

HI Jim
Thanks for your reply.

The code firstly pulls a test file from a folder and adds it to an
existing worksheet adding it to the next available space at the bottom
of the worksheet (this is the piece i wrote myself)

Now the bit i didn't write. The text file will have duplicate records
which I wish to eliminate. Based on a unique number on column B and an
extract date on Column J. I only keep unique records ie no duplicate
numbers in Col B and the oldest date (original extract date) on col J.

What I am hoping to get is a review Column on Col M which is tagged
with a Y when it has been seen by the reviewer. However when I set up
this column the Y's get blanked as new data is being added. I hope
this is clear and again thank you for looking at this for me.

Eddie

Thanks Jim for this idea-I have it working with slight alterations to
the code.

This was really helpful

Eddie