The only thing I changed is the input field from A1 to E6. Here's the
code:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False

Dim DestRng As Range

Set DestRng = Me.Range("IV20")

If Target.Address = "$d$6" Then
With DestRng.End(xlToLeft)
If IsEmpty(.Item(1)) Then
.Value = Target.Value
Else
.Offset(0, 1).Value = Target.Value
End If

End With

Target.ClearContents
Target.Select

End If

Application.EnableEvents = True

End Sub

DLS

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!