Private Sub Worksheet_Change(ByVal Target As Range)
'Assumes destination range is clear
If Target.Address = Range("g3").Address Then
Cells(Rows.Count, "d").End(xlUp).Offset(1) = Target
End If
If Target.Address = Range("g4").Address Then
Cells(Rows.Count, "e").End(xlUp).Offset(1) = Target / 100
End If
End Sub

Sub clearcolD()
Columns("d").ClearContents
Cells(12, "d").Value = "PE Ratio"
Cells(12, "e").Value = "Div Yield"
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Stilltrader47" wrote in message
...

Thanks Don, I will stay in one group.

Thanks for the macro below I'll try. Let me clarify my objective, to
help
you better understand the code I need.

For example, I want to always enter the new value in cell j29. Each
entry
will update the value to the next consecutive empty cell in range
c49:c60.
Your help is appreciated. Tom


"Don Guillett" wrote:

Please post in ONLY ONE group.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
??
cells(rows.count,"c").end(xlup).row+1,"c").value=c ells(3,"c")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Stilltrader47" wrote in
message
...
I am trending a bank account balance. Every time I enter the current
value
in cell c3, I would like it to update the value in the next empty
cell in
range c5:c200. Thanks

Sony


.