You've posted this 4 times now.....and I already gave you some code
that will work in this thread;

http://groups.google.co.uk/group/mic...5c100456?hl=en

And if you want to adapt the above you need to change this line....

While i1 - j1 HdgRow And Cells(i1, "E").Value = Cells(i1 - j1,
"E").Value

and add;

And And Cells(i1, "F").Value = Cells(i1 - j1, "F").Value