Let's see. You need code that runs on worksheet change, it must check that the change that triggers it is the cell you're working ith, otherwise exit.
Then it finds the first free space to the right and copies the cell there.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$6" Then Exit Sub
cancel = True
dest = Cells(Target.Row, 255).End(xlToLeft).Column + 1
On Error Resume Next ' ensure enableevents gets restored
Application.EnableEvents = False
Cells(Target.Row, dest) = Target.Value
Application.EnableEvents = True
End Sub
Good in xl2003 through 2013
Bookmarks