right click sheet tabview codecopy\paste this. If not column A (1) then
change.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
Target.Offset(12).Select
End Sub

--
Don Guillett
SalesAid Software

"Mickey" wrote in message
...
I am entering records of numbers which have formulas for calculation. I
want
to place these records every 12 rows and be able to automate the worksheet
for our office personnel. How? HELP!! There can be anywhere from 50 to
150
records depending on how many batches are produced in manufacturing plant.