Save Data code not saving to the next line, keeps overwriting to same line.

I am trying to make this code auto save data to the next row but it wont work any help appreciated.

Please Login or Register  to view this content.

Does your data extend to more than 65536 rows? If so, its better to use ......Cells(Rows.Count,1).End(xlup) .....

Is column A empty for the last otherwise filled row on your sheet? If so, you will get overwriting as described.