inserting x rows after a date value excel vba : i am trying to insert x rows, x =12 after a cell value, i.e date, and my code does not work, please help,

    Sub HHRowInserter()
    Dim HHRw As Range
    For Each HHRw In Range("A1:A2251")
    If HHRw.Value Like #9/30/2017# Then   'mm/dd/yyyy '30-Sep-17
    HHRw.Offset(12, 0).EntireRow.Insert
    End If
    Next HHRw
    End Sub
