Copy data and paste to another column incrementing that column to next empty cell

Good morning,

I have real time data that is being imported to an excel document. When that data is recorded in cell A2 it then is copied to D2. A new data point will be recorded everyday and I want to have Column D increment by 1 every time a new data point is collected. Along with having it do that. I will need it not rewrite the previous data. So I will need it to locate the next empty cell in the column and record the data in that cell.

Example:

Day 1: A2=395; D2=395
Day 2: A2=386; D3=386
Day 3: A2=109; D4=109
And so on.

Any help would be greatly appreciated. Below is the code I have up to now.

Thanks,

James

Please Login or Register  to view this content.

Maybe:

Please Login or Register  to view this content.

Thank you for the help. It works great but I decided to implement a table to go along with my data points. That way it will be easier to handle the data and increase with the data points. However, using the code above. It places the data at the end of the table. What changes would I need to make in order to have it place the data within the table?