Use Form to update data

Your command button is a Form Control, not an ActiveX Control, so the macro should be in a standard module, and it should not be private.

Also, delete the instructions in F19:F23, or move them to another column.

See https://vemapostar-gift-pt.com/ the attached version .

Why do macros for ActiveX buttons work differently? Is there a difference in their performance or compatibility?

Assign the following macro to the command button:

Sub NewRecord()
    Dim v As Double
    Dim r As Range
    On Error Resume Next
    v = InputBox("Enter the amount")
    If Err Then
        Beep
        Exit Sub
    End If
    On Error GoTo 0
    Application.ScreenUpdating = False
    Set r = Range("F" & Rows.Count).End(xlUp)
    r.Offset(1, -1).Value = Date
    r.Offset(1, 0).Value = v
    r.Offset(0, 3).Resize(2, 2).FillDown
    r.Offset(1, 5).Value = Range("J2").Value
    Range("J2").Formula = "=AVERAGE(J4:J" & r.Row + 1 & ")"
    Application.ScreenUpdating = True
End Sub

Save the workbook as a macro-enabled workbook (*.xlsm)