Ошибка 1004 при расчете последней использованной строки

Question

Почему 3-я строка, начинающаяся с "lastrow = ...", определяется как ошибка "1004" Ошибка времени выполнения?

Sub createNotifications()

    Dim i As Long, lastrow As Long

    lastrow = Sheet1.Cells(Rows.Count, 1).End(x1up).Row

    For i = 2 To lastrow

        Cells(i, 3).Value = Cells(i, 2) - 3
        If Cells(i, 3) - Date Then
            Cells(i, 3).Interior.ColorIndex = 3
            Cells(i, 3).Font.ColorIndex = 2
            Cells(i, 4).Value = "send Reminder"

        Else

            Cells(1, 3).Font.ColorIndex = vbBlack
            Cells(1, 3).Interior.ColorIndex = 2
            Cells(1, 4).Value = ""

        End If

    Next

End Sub