Simple Copy/Paste work with Control Button but not for Command Button

Hello ALL,
I have below simple code that work with Control Button but not for Command Button (ActiveX Control). Please help me how to make it work with Command Button (ActiveX Control)

Dim Lr As Long
    'Lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Lr = Range("A1:A10000").End(xlDown).Row
Sheets("Data").Range("A" & Lr + 1).Value = Sheets("CheckIn").TEXTBOXNAME.Value

Regards,
tt3