Auto-Populating cells with user-defined data after adding new rows

[BMHuettinger]

Good evening,
I have a macro that looks for user-defined criteria, and then inserts a new row every time the criteria is found.
What I need to do now is populate the A and B cells in the NEW row with additional user-defined criteria ( cell A? will be a number, and cell B? will be a text name).

here's my code

Sub AddToAllAccounts_Click()
Dim uiDeptToShow As String


uiDeptToShow = Application.InputBox("Insert row after which ledger number", Type:=2)
If uiDeptToShow = "False" Then Exit Sub: Rem Cancel pressed


  With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Selection.AutoFilter Field:=1, Criteria1:="=" & uiDeptToShow, Operator:=xlAnd
 For Each myarea In .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).Areas
            myarea.Offset(1).EntireRow.Insert
        Next myarea
        .AutoFilter
    End With
End Sub

Thanks in advance!!