Adding numbers in shifting column

[JHC]

Hi All

I enter data (numeric values) in Sheet 1 A1 and it is displayed in Sheet 2 A1. With every value entered, the previous entry in Sheet 2 drops down to the next cell (A1 then becomes A2, etc).

I want to automatically add the values displayed in Sheet 1, however, with the everchanging cell locations I don't know how.

I use the following formula in a macro:

Sub EnterData()
Sheets(2).Rows(1).Insert
Sheets(2).Range("A1") = Sheets(1).Range("A1")
Sheets(1).Range("A1").ClearContents
End Sub

I would appreciate advice as to how this could be done.

Thank you.

[Pepe Le Mokko]

Hi
please put code between tags ( see forum rules) - Thx