Hi,

Below macro will do the job ...

Alt F11 Insert Module
Copy the code in module ..

Sub Names()
Dim i As Integer
Dim LastRow As Integer
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
Range("A" & i).Select
If Len(ActiveCell.Value) = 1 Then
ActiveCell.Offset(-1, 0).Copy
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
End Sub


HTH
Cheers
Carim