Sub abc()
Dim rng as Range, rw as Range
Dim cell as Range
Set rng = Range("A1").CurrentRegion
Set rw = rng.Offset(rng.Rows.Count, 0).Resize(1)
For Each cell In rw
cell.Value = "-"
Next
End Sub

--
Regards,
Tom Ogilvy


"Chris_t_2k5" wrote in message
...
Hi, here is my problem. I will have data in different cells each time
such
as A1:C10, A1:H100, for example. What i need is macro that will insert a
dash
(-) under the last line of value in each cell.

For example if there are values in cells A1:C10 I need a dash in each of
the
cells A11:C11.

Thanks in advance