Excel VBA increasing rows/columns -

http://imgur.com/zem7ht7

in image have form upon entering information text boxes , pressing enter place information correct places below titles, i'm wanting either have next button go down 1 row , button go 1 row , allows me enter information 'database' per or have automatically jump down 1 row upon clicking 'enter'. have looked , can't find quite i'm asking , response great, thanks.

this have far.

private sub commandbutton1_click()
dim x integer
x = cells(1, 1).end(xldown).row + 1
cells(x, 1) = textbox1.value
cells(x, 2) = textbox2.value
cells(x, 3) = textbox3.value
cells(x, 4) = textbox4.value
cells(x, 5) = textbox5.value
end sub

replace x=2 finding next empty row

if cells(2,1) = ""     x = 2 else     x = cells(1,1).end(xldown).row + 1 end if