tom, One more question. Within the worksheet I have other data entry cells
with references to specific cell ranges. I want to set up for the same type
of entry.

In VBA I copied the code in and edited the references (enter in K29, update
next consecutive empty cell in range c243:C254.

The original code is in Template, the copied and edited code in Template2.
I can't get Template2 to run though. Both, when you open the module are
named "worksheet".

What do I have to adjust to be able to enter updates from both modules?

Thank-you.

"tompl" wrote:

This is a Macro and if you have not worked with them before it might be a
little advanced for you. I am sorry if all this just adds confusion.

To install this macro you need to open the VB Editor aka Macro Editor.
First, open your workbook, then open the VB Editor by pressing Alt F11. With
that open you should be able to see a list of worksheets in you workbook. If
not press Ctrl R to open the Project Explorer. Next, double click on the
worksheet name and the €œCode€� window will open and focused on that specific
worksheet. Paste the code below into the €œCode€� window and that should do it.

I re-thought my earlier code and changed it a little so use this code
instead of the previous. When installed, each time you enter something in
Cell C5 of that particular worksheet, the same value will be automatically
added to the next empty cell below cell A10. Good luck, Tom

Private Sub worksheet_Change(ByVal Target As Range)

Dim rwRow as long

If Not Intersect(Target, Range("C5")) Is Nothing Then
rwRow = Range("A10").End(xlDown).Row
Range("A" & rwRow + 1).Value = Range("C5").Value
End If

End Sub