Tom, Where in the worksheet do I put this code? And get it there. A
separate tab? When I do this does it mean the entry will advance to the next
empty cell? Thanks - Sony

"tompl" wrote:

Copy this code to the macro area of the specific worksheet that you are
working on and any value entered in cell C5 of that worksheet will be copied
to the bottom of the column that starts with cell A10.

Private Sub worksheet_Change(ByVal Target As Range)

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

End Sub

Let me know if you have further questions.

Tom