Dim LastRow As Long LastRow = Sheets("Sheet1").Cells(Sheets("sheet1").Rows.Count, "A").End(xlUp).Row Sheets("Sheet1").Range("A" & LastRow + 1).FormulaR1C1 = "=WORKDAY(R[-1]C,1)" lastrow2 = Sheets("Sheet1").Cells(Sheets("sheet1").Rows.Count,...