Insert Row into the range under specific condition

Hello, Dear Members!

I kindly ask you help me on this issue. Please find attached file.

Here you will find Workers and their working years. I need to add new line for worker when his/her working year finished. For example when the date > 17.07.2018 I need to add new line for John. (date = today formula)

It look like simple but this is a part of my vacation module.

I started to write code like this and when I run it I got compile error for "MyTable". I can't find out issue.

Sub AddWorkingYearLine()

Dim WorVac As Worksheet:                Set WorVac = Worksheets("WorkerVacation")
Dim i As Long
Dim LRow As Long
Dim LCol As Long
Dim MyTable As Variant

LRow = Range("A1048576").End(xlUp).Row: LCol = Range("XFD4").End(xlToLeft).Column

MyTable = Range(Cells(4, 1), Cells(LRow, LCol))

For i = 1 To UBound(MyTtable, 1)

If Branches.Range("C" & i) > Range("D1") Then  'Range("D1") = today formula
......................

End If
Next i