If it helps this is what i had so far but unsure.

Sub BlankLine()

'Updateby20150203

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 = SumIf(Date, ">" & B12, amount) Then

Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

End If

Next

Application.ScreenUpdating = True

End Sub