Copy - Paste Special.Values (with extra function) VBA Script needed!

Hi All!

Can somebody help me with the following? I would really appreciate it!

I would like to create a command button within Excel 2002 SP3 that should launch the following method: I would like to Copy a certain Range ("A2:D2") in a sheet ("Historie") and Paste Special.values into a Range ("E23:H23") within the same sheet.

But: The next time I click on the command button it should Copy the very same range and Paste Special.Values it into one row lower ("E24:H24").The next time into ("E25:H25") and so on.

Does anyone know how to write this in VBA language?