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