Macro Help

[pujo]

Hey Gang,
I am trying to figure this out. I haven't had any luck, maybe someone could shed a little light on the subject.
Here is the delima.....

I have 8 counters in cell A1:A8, A9 is the sum of A1:A8. These are daily totals.

In cell I1:I31 is the days of the month, with cell I32 the sum of I1:I31

How could I use a macro to move the value of A9 to the the column that I use for the day of the month.

An on change macro would work to move the vlaue to the next empty cell on colomn "I" but it doesnt work correctly. everytime I change one of the 8 counters, it gets copied to the next empty cell in column "I". I would like for it to only get copied once all 8 cells are updated.
I hope someone can understand what I am asking, as I really don't know how to explain any other way.
Thanks,
Pujo

 

[VoG]

This will find the first blank cell after I15 (it won't stop at I20 though)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A8" Then
    Application.EnableEvents = False
    Target.Offset(1).Copy
    Range("I15").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.EnableEvents = True
    Application.CutCopyMode = False
End If
End Sub

 

[pujo]

I tried and this is the result.
Thanks for the assistance.

Run-time error '1004':
Application-defined or ogject-defined error.

 

[VoG]

Maybe

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A8" Then
    Application.EnableEvents = False
    Target.Offset(1).Copy
    Range("I1").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.EnableEvents = True
    Application.CutCopyMode = False
End If
End Sub