Without formulas to copy the entry 17 rows down.
Right click sheet tabview codeinsert this
If you only want one use the formula suggested.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("f2:f222")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(17) = Target
Application.EnableEvents = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"gus" wrote in message
...
How can i get a cell to input the same information i type in one including
text, for example:
cell 1
F3: John Doe 23023

and i want the same information that i display to show up on another cell

f20: John doe 23023

Help please thank you