Since you didn't tell us where you list is and where you want the numbers,
this should do it.
On sourse sheet, right click sheet tabview codeinsert thisChange
destination sheet name and columns K:M to yours. SAVE workbook
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("k:m")) Is Nothing Then
With Sheets("sheet22") 'destination sheet with a b c
mc = .Rows(1).Find(Cells(1, Target.Column), LookIn:=xlValues).Column
lr = .Cells(Rows.Count, mc).End(xlUp).Row + 1
Target.Copy .Cells(lr, mc)
End With
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"freakyquo" wrote in message
...
Hello,
I have a list with headings, eg "A", "B", "C".
Is there a way that I can enter data on one spreadsheet that will add data
to the bottom of the list?
For example, I could have cells on sheet 1 headed A B and C, and type in
the
data, and then this adds the data to the bottom of the list on sheet 2.
Then
I can re-enter data in my cells in sheet 1, and add another row at the
bottom
of the list.
Any ideas?
Any ide