transfer data to another sheet

Hi, I'm not familiar with vba, but I was able to use this example. Pls help me understand.
in this example you have to created a button, once clicked all data in INPUT sheet will be transferred to DATA sheet. the space becomes blank and ready for another input.
this goes well when all CELLS are filled with data, the column in another sheet continue to expands.
my question are:
but when the there are empty cells in the said range, at a point the column stop expanding and will recur on the same column continuously every time new data are entered.
which line in vba should be change? Or if I want the transfer to automatically add zeros on empty space, what should be added to the line?
thank you in advance for any help.

Please Login or Register  to view this content.

This line:

Please Login or Register  to view this content.

finds the last column with data, and adds 1 to it, which determines where (which column) to paste data.
The way it works is that it checks from the end, moving left, and stops when it finds data. However, the 6 in that line, refers to row 6, so if the last column with data is blank in row 6, then the code would paste the new data in the wrong column, because it did not find the real last column. If you have a row in that range that ALWAYS has data, then you could change the 6 to that row number, or you could check all rows (less efficient but sometimes necessary. For example, instead of lc =.. you could use

Please Login or Register  to view this content.

That would check all rows from 4 to 58, and use the last column of the longest row.