not sure if they are actually blank, but i used column A in my code


Sub copy_dates()
Dim ws As Worksheet
Dim lastrow As Long
Dim cell As Range
Set ws = Worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row

For Each cell In Range("A2:A" & lastrow)
If cell.Value = "" Then
cell.Value = cell.Offset(-1).Value
End If
Next
End Sub

--


Gary Keramidas
Excel 2003


"tsraj" wrote in message
...
I am using Office 2007. In Excel, I like to write a code in Visual Basic
to
copy the contents of the cell above into a blank cell down below and
repeat
the procedure until it reaches the bottom of the data. All the cells are
not
blank cells. Only a few of them are blank cells.
Example of the column
03/01/2008
01/01/2008

02/01/2008

03/01/2008


03/01/2008

03/01/2008

11/01/2007
12/01/2007
01/01/2008
02/01/2008
I like to copy 01/01/2008 into the empty cell down below. Then move to
the
next blank cell and copy 02/01/2008 into the empty one. Repeat the
procedure
until it reaches the bottom of the data, in my example 02/01/2008.

Any help in this regard is very much appreciated.