Abrir excel la primera vez en el día se ejecute una macro y que no se repita más en el mismo día.

H o l a:

Pon la siguiente macro en los eventos de thisworkbook, la macro se apoyará de las celdas Z1 y Z2 de la hoja "Estadística Venta", para saber is ya se ejecutó en el día.

Si esas celdas ya las estás utilizando o deseas que se ocupe otra hoja, cambia la macro.

Private Sub Workbook_Open()
'Por.Dante Amor
    Set h = Sheets("Estadística Venta")
    If h.[Z1] = "" Then
        ExistenciaDiaria
        h.[Z1] = Date
        h.[Z2] = "x"
    ElseIf h.[Z1] < Date Then
        h.[Z2] = ""
        ExistenciaDiaria
        h.[Z1] = Date
        h.[Z2] = "x"
    ElseIf h.[Z1] = Date Then
        If h.[Z2] = "" Then
            ExistenciaDiaria
            h.[Z1] = Date
            h.[Z2] = "x"
        End If
    End If
End Sub

Agrega lo siguiente a tu macro:

Sub ExistenciaDiaria()
'act.por.Dante Amor
    Set h = Sheets("Estadística Venta")
    If h.[Z2] = "x" Then Exit Sub
    '
    ActiveSheet.Unprotect Password:="1"
    Range("H77:H84").Select
    Selection.Copy
    Range("G77").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

'

S a l u d o s

Hola Dante

Me da error en :

Set h = Sheets("Estadística Venta")

Un saldo

En Private Sub Workbook_Open()

Revisa que tu libro tenga una hoja con este nombre:

"Estadística Venta"

Así lo escribiste tú.

Revisa los espacios, el acento.