soz guys,

i tried both solutions but couldnt get them to work (and
yes, i did spell format right).

Bob, the macro ran but; 1. it just copied the last number
and 2. it didnt paste it. but thats not what i wanted
anyway :S


Frank, I couldnt get urs to run. it had trouble with:

..cells(lastrow,"A").value = .cells(lastrow-1,"A").value+1

I'm no expert so i cant really tinker with them to make
them work.

I guess it will be something like:

Selection.AutoFill Destination:=Range("A632:A633"),
Type:=xlFillDefault

but i need it not to be relative to specific cells.
Any ideas?