One way:

Sub BlankRepeats()
For Each cell In Range("A1:B7")
If cell.Value = "" Then cell.Value = cell.Offset(-1, 0).Value
Next cell
End Sub

Regards,
Paul

"hccatmo" wrote in message
...
Good afterning,
I have:
A B ............
1 Me You
2 " You
3 " "
4 Her "
. " "
.
.
.
Like to get
A B ............
1 Me You
2 Me You
3 Me You
4 Her You
. Her You
.
.
.

I have seen it done by changing to R1C1 and =R[-1]C but it does not work
on
mine desktop? Thx.
cg