Copiar una celda en otra hoja

Estoy haciendo una macro para llevar el control de tiempo y productos que se venden en un café internet, ya casi logro adaptarlos a mis necesidades, pero el problema que me surgió y que espero que me puedan ayudar a resolverlo, es que, dentro de mi formato coloque un botón que ejecuta una macro, esta lo que hace es copiar el total a cobrar en otra hoja y enseguida limpia los campos que se llenaron, pero a la hora de irse guardando los registros de los totales en la otra hoja, el nuevo valor capturado desplaza al anterior hacia abajo, lo que quiero es que el primer valor generado se quede al principio y que al mismo tiempo se genere la hora y día en que se genero la venta, esta es mi macro.
Nota: la celda que quiero que se copie es la G25, que es la que contiene el resultado de una suma
Sub pegado()
'
' pegado Macro
'
'
Range("G25").Copy
Sheets("Ventas").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Control").Select
Range("A7").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Range("C11").Select
Selection.ClearContents
Range("C13").Select
Selection.ClearContents
Range("C15").Select
Selection.ClearContents
Range("C17").Select
Selection.ClearContents
Range("C19").Select
Selection.ClearContents
Range("C22").Select
Selection.ClearContents
Range("C25").Select
Selection.ClearContents
Range("A7").Select
ActiveCell.FormulaR1C1 = ""
Range("A7").Select
End Sub