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