since I don't know what you have for code so far, let me take a stab at
solving the problems you stated you still have... ok first thing to do
when macro  starts is to get the last row...

function lastrow() as integer
dim lastrow as integer

activesheet.range("A65535).activate
lastrow = activesheet.range(A65565)end(xlUp).row

now that you have the last row... you can increment the number in b2

.range("B" & lastrow + 1).value = .range("B" & lastrow).value +1

you can also store these values in variables to use when you answer yes to
adding more information...

for example

lastid = lastid + 1
and

lastrow = lastrow +1

hope this helps... if I knew what code your using now I could be more
specific....