How to dynamically fill empty space in a column?

Auto fill last cell in column on open Excel worksheet?

• I have this macro for saving the excel file as last cell completed in column A when I close the file: Sub Auto_Close() ActiveWorkbook.SaveAs Filename:= _ "C:\excel\" & Range("A65536").End(xlUp) & ".xls" End Sub Now, I'd like to modify this macro because I'd like the last blank cell in column A to be filled automaticaly relating to another filled cell in the worksheet when I open the file. For example: Column B contains filled cells. On opening my file, the last blank cell in column A (let's say cell A1) must be filled automaticaly with the content of a cell in column B (let's say cell B2) Than I close the worksheet and it is saved automaticaly as the content of A1. On next opening the worksheet, cell A2 must be filled automaticaly with the content of the next cell in column B, in this case cell B3. On closing the worksheet, it will be saved as A2 content. And this should repeat on and on, until the column B content ends. Another way to do this should be more simple: saving my worksheet automaticaly with the next cell filled in column A. So I shouldn't enter manualy the content of the cell, but the cell should be completed previously.

• Answer:

  As I answered your previous question, providing you with the macro you are using, so shall I answer this question. Here is the macro that will, upon opening the workbook, select the next available cell in column A, and copy the value from the equivalent cell in column B. Note: you may have to change the "Sheet1" reference to the sheet name you are using for this routine. Sub Auto_Open() Sheets("Sheet1").Select Range("A65536").End(xlUp).Offset(1, 0).Value = _ Range("B65536").End(xlUp).Value End Sub