Как автоматически вставить строку на основе значения ячейки в Excel?

Question

У меня есть диапазон данных, и я хочу автоматически вставлять пустые строки ниже определенного значения в Excel.Я все еще новичок, поэтому я хотел бы, чтобы макрос нашел дату, скажем, 26/04/2019, 03/05/2019, 10/05/2019, 17/05/2019, 24/05/2019 и вставил 2 пустыхстроки ниже.

И я хотел бы, чтобы данные, которые были на 26/04/2019, скопированы в пустые строки, вставленные ниже, и повторены для дат, перечисленных выше.Эти даты меняются каждый месяц.

У меня есть код ниже, но он ищет только одно значение.Кроме того, я все еще не уверен, как скопировать данные в пустые строки.

Sub BlankLine()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
    Set WorkRng = WorkRng.Columns(1)
    xLastRow = WorkRng.Rows.Count
    Application.ScreenUpdating = False
    For xRowIndex = xLastRow To 1 Step - 1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "26/04/2019" Then
            If Rng.Value = "03/05/2019" Then
               Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub