Enter data from one sheet to another

[MrChippy]

Not sure if this is an easy question or not but:

I am trying to use one sheet as an order form and want to be able to type information into the cells and have the data show up on another sheet and then the next time I enter data into the first "form" have the data transferred to the second sheet--only this time in the row beneath the first entry rather than replacing the data--essentially turning the second sheet into a list made up of every entry into the "form" sheet. Is there a way to make the next entry into a different row between sheets like this?

 

[ravishankar]

Hi
Assuming you enter data in A3,B3,C3 and D3 of sheet1
paste the following codes in the macro window ( Alt F11)

sub dataentry()
x= worksheets("sheet2").cells(rows.count,1).end(xlUp).row
Range(A3:D3).copy
worksheets("sheet2").cells(x+1,1).pastespecial
end sub

Run the macro. It will copy from sheet1 to last row of sheet2
Ravi