If I follow you correctly and you want to add the data in A2 to the bottom
of a list of data in Column B then right click on the sheet tab and select
View Code and paste this Worksheet code into the module:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub

Application.EnableEvents = False

LastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1

Cells(LastRow, 2).Value = Cells(2, 1).Value

Application.EnableEvents = True

End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland


with @tiscali.co.uk


"DarkNight" wrote in message
...
hello again, i'm trying to get this to work:-
A1 = date ( changeable )
A2 = £ ( changeable )
B1 to B100 ( if B1 has £ in it move to next cell down without over
righting
previous cell) B100 could be greater , just depends on how much data i
collect.
up to now i can only get data by copy and pasting information from A2 and
placing it in the next empty available cell in B.
i've tryed using the date but all cells then change to the current
contents
of A2 and really want previous contants to remain untouched.

Thanks inadvance