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

Please Login or Register  to view this content.

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