I think that what you need is the Offset method for the range and cells
objects.
You could use the Offset to specify how many rows and cells from a reference
you want get/set values.

cellls(1, 1).Offset(0, 1).value = 4 - One to right from A1 (Sets B2 = 4)
cellls(1, 1).Offset(1, 1).value = 4 - One to right and one down from A1
(Sets B2 = 4)

Using minus (-) on offset values, you specify positions to left and up.

Seems like a non-macro approach would consume less key-strokes.

1.Put a conditional formula in the 2nd data row, like

=IF(C2<>"",B1+1,"")

2. Copy the formula and paste it down column B
3. Enter the numbet 1 in B1 (assuming that is the first data row)
4. Change Excel movement options on Enter to down via

[Tools][Options][Edit] Move selection after Enter

and

5. Find the last row filled via placing your cursor in column C and
pressing [Ctrl][down arrow].

Whenever you enter a name in column C, press [Tab]. The number will
appear in column B. Enter the address in column D and press [Enter].
The cursor should go to column C of the next line.

Please post your code if you want help with it.

You still working on this?

Is it actually necessary to move the cursor from cell to cell?
(Excel doesn't need it, the macro  can say: Cells(3,5) = "myname")

Is it possible for you to create a form that has (2) boxes
for name and Address, then the "OK" button would insert it.

I can help with the form, if you want.
let me know.

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....

Actually the last row is simpler than that. (also you had a couple of typos)

You just need

Dim lastrow as long
lastrow = ActiveSheet.Range("A65536").End(xlUp).Row

there is no need to move the cursor at all.

This assumes the last row will have data in col A.

. later on I tried it myself to make sure I was giving
correct advice... and found the typos... I just hadn't gotten back online to
correct them... thanks for catching me though.. I learn from those
gotchas...