On Apr 23, 9:34*am, anon wrote:
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....programming/b...

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

Hi anon I just have few questions about your code so I can better
understand how it works. Can you please give me little bit
explaination if you don’t mind

1 - "I = 1" what this recommend
2 - "J = 500" what this recommend
3 - "For Each C In ActiveSheet.Range("H6:H17") " how can I change
this range to H6 to the last value cell in column H
4 - "C1 = C.Offset(0, 1).Value" which column this code is
recommending I or J
5 - "C2 = C.Offset(0, 2).Value" which column this code is
recommending J or K
6 - For J = 6 To 17 how can I change this row change from 6 to last
value cell row in column H