If your assumptions are correct Russell, Sohail could try this event code in
Sheet1 code module.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Worksheets("Sheet2").Cells(Rows.Count, _
"A").End(xlUp).Offset(1, 0)
If Not Application.Intersect(Target, _
Range("$A$2")) Is Nothing Then
On Error GoTo endit:
Application.EnableEvents = False
Application.ScreenUpdating = False
With rng
.Value = Format(Now, "mm/dd/yy")
.Offset(0, 1).Value = Target.Value
End With
End If
endit:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 23 Mar 2010 14:48:01 -0700, Russell Dawson
wrote:

Sohail

I was not angry with you. I was trying to explain that it is not necessary
to make multi postings.

This forum/discussion group is not a place where you can demand a solution.

The people that post replies do so out of their desire to help and educate
others. In this way we all learn and improve our skills. By viewing other
peoples problems helps me to learn also.

The fact that you have said "(second time)" will probably mean that your
question will be ignored as I tried to explain last time.

I can't answer your problem - I wish I could. But it is obvious that those
much more learned than myself either do not understand or cannot provide a
solution.

Repeating your question does not make it easier to solve.

That's something to bear in mind.

As I said, I can't answer your problem but perhaps I can explain it in a way
that is easier to understand. That's if I understand you correctly. I've
spent some time trying to analyse your post and here goes.

You have a daily calculation in sheet1 that results in an ending balance
figure in A2.
You want this figure to transfer to sheet2 showing the date of creation and
the amount i.e. 9 Mar 2010 £10,000

The next day sheet1 will do it's daily calculation and at the end of the day
you require the ending balance figure to appear in sheet2 in the row beneath
the 9 Mar entry.

Am I close.

Hopefully someone can give you a solution.