Select your list and run:

Sub smith()
Dim savit()
ReDim savit(Selection.Count)
i = 0
foundit = False
For Each r In Selection
   With r
   If .Value = "smith" Then
       foundit = True
   Else
       savit(i) = .Value
       i = i + 1
   End If
   End With
Next

If foundit Then
   i = 0
   j = 0
   For Each r In Selection
       If j = 0 Then
           Selection.Cells(1) = "smith"
           j = 1
       Else
           r.Value = savit(i)
           i = i + 1
       End If
   Next
End If
End Sub