Should work with something like:

(Row X is inserted and colums Y has the increasing number. Increasemen
is Z)

Cells(X,Y).value = Cells(X-1,Y).value +

--
Message posted from http://www.ExcelForum.com