How many columns is that?

Sub fillinblanks()
mc = 5 'col e
For i = 1 To 5
'if cells(i,mc)<cells(i+1,mc)then cells(i
If Cells(i + 1, mc) = "" Then Cells(i + 1, mc) = Cells(i, mc)

Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"LuisM" wrote in message
...
I export a file from an accounting program to an excel csv fromat
spreadsheet, is there a way to fill-in missing (blank cells) information
from
the raw above to the raws below with a formula or function?

cust1 order 123 123 Happyway USA 3hats
order 123 2shirts
order 123 2shirts
cust2 order 124 123 Bestway USA 2belts
order 124 2T-shirts

so it will look like this:

cust1 order 123 123 Happyway USA 3 hats
cust1 order 123 123 Happyway USA 2 shirts
cust1 order 123 123 Happyway USA 2 shirts
cust2 order 124 123 Bestway USA 2 belts
cust2 order 124 123 Bestway USA 5 T-shirts