Almost the same:
Option Explicit

Sub CopyCells()
Dim LRow As Long
Dim MyRng As Range
Dim c As Range

Range("A1").Activate
LRow = ActiveCell.CurrentRegion.Rows.Count
Set MyRng = Range("A1:B" & LRow)

For Each c In MyRng
If c.Value = "" Then
c.Value = c.Offset(-1, 0).Value
End If
Next c
End Sub

Mike F
"Mut" wrote in message
...

Thanks a lot..Mike
It worked properly.. =)

Then.. I have another case.
What Should I do If I have to fill blank cells?.. Based on cell above
them
So.. It could be..

A| B| C|
1|Children |Information |News
2|Children |Information |Filler
3|News |Information |Filler
4|News |News |News
5|News |Movie |Movie

Thanks..


--
Mut
------------------------------------------------------------------------
Mut's Profile:
http://www.excelforum.com/member.php...o&userid=30633
View this thread: http://www.excelforum.com/showthread...hreadid=528841