The macro works great except that I loose my decimal places on all whole
dollars. How do I keep the formatting in the amount column?

"Jarek Kujawa" wrote:

try to use the following macro:

Sub divideee()
counter = 0
For Each cell In Selection
For i = 1 To 4
cell.Offset(3 * counter + i - 1, 6) = cell.Offset(0, i - 1)
Next i
counter = counter + 1
Next cell
End Sub

HIH