EXCEL Copiar texto de una celda a otra

Hola

Tengo el siguiente macro para insertar la fecha cada vez que pulse un botón:

Sheets("Documento Principal").Range("K" & Rows.Count).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

ActiveCell = Date

ActiveCell.NumberFormat = "dd/mm/yyyy"

Quiero convertir este macro para que en vez de insertar la fecha en la columna "K", me inserte el texto que hay en la celda "H6" en la columna "H" cada vez que yo pulse el boton

Gracias