Macro will not execute when called in a different sheet.

I have a column with dates. I have designed a macro that takes the last value in the column and puts the date of the next day in the cell below, and continues this way until the date of "today" is reached. The column is in "sheet1", "column H". If I create a control button in "sheet1" the code will execute quickly. However, I want the control button in "sheet2". When I do this, Excel takes forever to execute the code and eventually freezes.

A spreadsheet showing an example of the problem is attached. The general code of the macro is

 Private Sub CommandButton1_Click()
Dim Row As Long
Dim lr As Variant
lr = Worksheets("Sheet1").Cells(Rows.Count, "H").End(xlUp).Row
    Dim StartD As Date, EndD As Date
    StartD = Cells(lr, "H")
    EndD = Date
    For Row = 1 To (EndD - StartD)
    Application.ScreenUpdating = False
        Worksheets("Sheet1").Cells(lr + Row, "H") = StartD + Row
    Next Row
    Application.ScreenUpdating = True
End Sub

Any suggestions on how I can avoid this, but still have the control button in "sheet2"?

lr = Worksheets("Sheet1").Cells(Rows.Count, "H").End(xlUp).Row

Worksheets("Sheet1").Cells(lr + Row, "H") = StartD + Row

There are the lines to change

Rows.Count should be Worksheets("Sheet1").Rows.Count

i think

You need to take Sheet 1 out the lr row, otherwise sheet2's geometery will be based on Sheet1, so if no rows in SHeet1, nothing will happen in sheet 2