excel - Record active cell address in new sheet on button click -

i want button click

• record address of active cell have selected in sheet 1, , place next empty row in column "b" on sheet 2.
• on button click well, wish msgbox display corresponding row of column "a", contains reference numbers.

so far have working button, coding abilities limited , have:

private sub cellreferencebtn_click() msgbox "the active cell row , column " & activecell(row + 1, column + 1).address end sub 

any appreciated!

here go:

private sub cellreferencebtn_click()     activecell         sheet2.[offset(b1,counta(b:b),)] = .address         msgbox sheet1.cells(.row, 1)     end end sub