edit code

hello

i was wondering if you could help me edit this code

So far the code copies the value in cell "F15" in sheet 4 and pastes the value in sheet 18, cell D6
but the problem is that everytime i click it it just replace the value in sheet 18cell "D6" i want it to go down by a cell everytime it is clicked

The code is:

Sheet18.Cells.Range("D6").Value = Sheet18.Cells.Range("D6").Value + Sheet4.Cells.Range("F15").Value

thanks in advance

The code that you provided dosent seem to work when i click the macro nothing happens

i have attached a sheet which will explain what i mean


thanks for your help tho
reli apreciate it

This is the attachment

thanks in advance

sorry about that i have atteched the file

thanks in advance

Thats what i want thanks

but with this code it dont copy to Cell D2 in sheet 2 if the is a forula in in D5
why is that

the code should let it copy to D2 downwards

thanks in advance