Your code works for me. I can only guess that your 'blank cells' are not
truly empty.

--
Jim
"scorpiorc" wrote in message
...
| My column looks like this, I have data in D1, then cells D2:D10 are blank,
| then data in D11 and so on. The data is spaced throughout the column
| (ie...not always the same # of blank cells between data). Also, the last
| cell in the range can vary from week to week. I need to copy the cell
that
| has data
| to all blank cells below it until I get to the next nonblank cell. So if
I
| have "A" in D1, "B" in D11 and cells D2:D10 are blank, I need to copy "A"
| into D2:D10, and then B into D12:D? (however many blank cells are below
until
| the next cell with data).
|
| I have written something like this to work on a similar worksheet
|
| lr = Cells(Rows.Count, "D").End(xlUp).Row
| For Each c In Range("D1:D" & lr)
| If c = "" Then c.Value = c.Offset(-1)
| Next
|
| but it does not work with blank cells in this worksheet when I changed the
| statement to be If c = ""
|
| Any ideas?