如何在Excel中基于单元格值自动插入行？

Question

我有一系列数据，我想在Excel中自动插入一定值以下的空白行。 我还是初学者所以我希望宏找到日期可以说26/04/201，03/05 / 201,10 / 10 / 201,17 / 05 / 201,24 / 05/201并插入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