Ошибка записи значиния в ячейку: type mismatch - VB

Формулировка задачи:

Доброго времени суток, друзья.
Появилась необходимость обработать большую таблицу автоматически. Но возникает ошибка type mismatch на строке "Cells(nRowIndex, 11).Value = nExecutDay + 1".
Функция TypeName выдает Empty. Изменение типа не помогет (я делал это функциями CDate, CStr... Правильно?).
Аналогичных проблем на форуме и в интернете не нашел.
Прошу вашей помощи. За ссылки и разъяснения говорю спасибо.
Код:

Option Explicit
Sub fGrafik()

    ' 11 колонка - дата окончания КЭП
    ' 14 колонка - последняя
    Dim nRowIndex As Long

    Dim nExecutDay, nMaxExecutDay As Date

    nExecutDay = "06.01.2017 00:00:00"
    
    For nRowIndex = 2 To Range("A65536").End(xlUp).Row
        'If IsError(ActiveWorkbook.ActiveSheet.Cells(1, 2).Value) = True Then Stop
        Debug.Print nRowIndex
        Debug.Print TypeName(Cells(nRowIndex, 11).Value)
        If Cells(nRowIndex, 11).Value = 0 _
        Or Cells(nRowIndex, 11).Value = " " _
        Or Cells(nRowIndex, 11).Value = "" _
        Or Cells(nRowIndex, 11).Value = vbNullString _
        Or IsEmpty(Cells(nRowIndex, 11)) _
        Or nExecutDay > Cells(nRowIndex, 11).Value Then
            Cells(nRowIndex, 11).Value = nExecutDay + 1 ' тут ошибка
            'Debug.Print nRowIndex
        End If
        'If Cells(nRowIndex, 11).Value = 0 Or Cells(nRowIndex, 11).Value = " " Empty Then Cells(nRowIndex, 11).Value = nExecutDay + 1'Or Cells(nRowIndex, 11).Value Is Empty Then Cells(nRowIndex, 11).Value = nExecutDay + 1
        'If IsError(ActiveWorkbook.ActiveSheet.Cells(1, 2).Value) = True Then Stop
    Next
    
End Sub

Решение задачи: «Ошибка записи значиния в ячейку: type mismatch»

textual
                            Листинг программы 
                        

                            Sub fGrafik()

    Dim nRowIndex As Long
    Dim nExecutDay As Date
    nExecutDay = #1/6/2017#
    For nRowIndex = 2 To Range("A65536").End(xlUp).Row
        
        Cells(nRowIndex, 11).NumberFormat = "dd.mm.yyyy"
        Cells(nRowIndex, 11).Value = CDate(Cells(nRowIndex, 11).Value)
        
        If Cells(nRowIndex, 11).Value = 0 _
        Or Cells(nRowIndex, 11).Value = " " _
        Or Cells(nRowIndex, 11).Value = "" _
        Or Cells(nRowIndex, 11).Value = vbNullString _
        Or IsEmpty(Cells(nRowIndex, 11)) _
        Or nExecutDay > Cells(nRowIndex, 11).Value Then
            Cells(nRowIndex, 11).Value = nExecutDay + 1
            
        End If

    Next
    
End Sub

                        