Run Time Error '1004' with select function

Hi guys,

I am trying to create a billing tool and I am writing macros to smooth the input steps for some of my colleagues.

Unfortunately, I am already failing when doing simple steps. I created a command button and want to switch tabs, select cell A1 and then want to go to the first empty row.
However, my code seems to be wrong and it marks the line with Range("A1").Select with the 1004 run time error.

Private Sub ExceedingStockEntry_Click()

Sheets("Exceeding Max Stock Charges Det").Select
Range("A1").Select
With ActiveCell.End(xlDown).Offset(1, 0)
.Value = Date
.NumberFormat = "mm/dd/yyyy"
End With


End Sub

I would be glad to get some responses for this topic.

Best
Marius