Sub PNtoNp()
For Each cell In Selection
tablo = Split(cell, " ")
Select Case UBound(tablo)
Case 1
cell.Value = tablo(1) & " " & tablo(0)
Case 2
cell.Value = tablo(1) & " " & tablo(2) & " " & tablo(0)
cell.Offset(0, 1).Value = tablo(1) & " " & tablo(0) & tablo(2) & " "
End Select
Next cell
End Sub