With your settings as per the norm with shiftdown after enter set, try the
following in the sheetcode:-

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column < 6 Then
ActiveCell.Offset(-1, 1).Activate
Else
Cells(ActiveCell.Row, 1).Activate
End If
End Sub


Or, with your settings set to shiftright after enter, just select the 6 columns
and enter your data, it will wrap within the selection when it comes to the last
Column.

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------



"Richard" wrote in message
...
I need a macro that allows me to type informaton in 6
cells to the right then go back down to the next row and
start inputting all over again


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.608 / Virus Database: 388 - Release Date: 03/03/2004