Use the year as the column index and month as the row index to the
cell on Sheet2, something like:
Sub SaveMonthlySubtotal()
Dim yr As Integer, mon As Integer
mon = Month(Now)
yr = Year(Now) - 2005
Sheets("Sheet1").Range("A3").Copy _
Destination:=Sheets("Sheet2").Cells(mon, yr)
End Sub
Adjust the mon and yr variables to get the value into the cell you
want.

HTH
Carl

On May 2, 3:21 am, Gav123 wrote:
Hi,
I posted this in the worksheet functions forum but no response...so I
thought that I would try here..

I want to be able to automatically copy data from one sheet to another sheet
on the last day of the month (the sheets are in the same workbook) when the
user opens or saves it (either way would be fine)

On sheet 1 there is a running total say cell C3 and on sheet 2 the
destination cells Jan, Feb, March etc.

Is there a way to have my running total populate the correct months figures
while keeping the previous months total. Just now the user manually inputs
the figures but if I can automate this task it would save time for the user.

I hope that I have explained the problem clearly enough.....

Any help you can provide would be appreciated.

Gav.