put data in empty cells

[Bookmaster]

Hello,

I have workbook with one sheet full of data.
Can somebody help me with macro which will find empty cells in a row and put same date in those cells, please? I don't need to know where are those cells I just need macro to find those cells in a row and fill them with same date. Date can be e.g. 01/01/2009

Thanks

BM

 

[BlueHornet]

Do you really need a macro for this? I mean, if it's a one-time operation, then you can use Search-and-Replace and save yourself a lot of trouble that way. Just select the range of cells that you want to operate on, and do a replace of <nothing> with a date value. Cells containing data will not be affected, and truly empty cells will contain whatever date you decide to use.

Please note that you will need to have "some value" at the bottom rightmost corner of your search-and-replace range for this to work. Excel won't perform the operation on a totally empty range.

 

[Bookmaster]

Thank you for reply. So far I manage to make this code:

Cells(Rows.Count, "H").End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "1/1/2009"
Cells(Rows.Count, "H").End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "1/1/2009"
Cells(Rows.Count, "H").End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "1/1/2009"
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Now I am facing different problem. In column "G" I have data in last (bottom cell) e.g. "G7652" (but that is not always the same last cell). I would like to fill date in column "H" up to same last cell in this case "H7652". Date in column "H" will be the same.

BM