copiar y pegar en columna diferente cada día

Hola al grupo,
en una hoja tengo una celda donde calculo el total de algunos datos...como
todos los días los datos cambian , el total tambien cambia, por lo cual puse
un boton que me copiara este total en otra hoja junto con la fecha...lo que
quiero es que cada vez que oprima el boton me tome el resultado de esta celda
y lo pegue en la hoja2 pero en una columna diferente por cada vez que de
click...he intentado con este código pero no me funciona..agradezco la ayuda
Worksheets("Sheet2").Cells(1, 1).Select.Value =
Worksheets("Sheet1").Range("h20").Value
Selection.FillRight