Minor modification to existing macro (insert data without clearing contents of rows above)

Hi all!

I am on the final stretch of my project, and thought I had a better handle on creating macros, but I am having a tough time figuring this out. Here is the issue I am having. Please help!!

I have two macros in this spreadsheet: (I have command buttons in the ribbon -- "Pre-Payment Macros")
1. Insert Pre-Payment Tab
2. Insert Data

When I run the Insert Pre-Payment Tab macro, it works great. But, when I run the Insert Data macro afterward, it deletes the second line of my table (it deletes the contents of row 2).

So, there is something in the second macro that needs to be edited.

When the first macro is run, the cursor is in cell A3, which is great. I need the second macro to place the data into cell A3 (without clearing the contents of row 2).

Any help is greatly appreciated! I am attaching the spreadsheet, along with the code for the second macro below.

Sub PrePaymentTableDataInput()
    Dim myAreas As Areas, i As Long, ii As Long
    Set myAreas = Sheets("summary").Columns(2).SpecialCells(2, 1).Areas
    ReDim a(1 To myAreas.Count + 1, 1 To 6)
    a(UBound(a, 1), 1) = "Total"
    For i = 1 To myAreas.Count
        With myAreas(i)
            a(i, 1) = myAreas(i)(-1, 0).Value
            a(i, 2) = .Cells(, 1).Value + .Cells(, 3).Value
            a(i, 3) = .Cells(, 2).Value + .Cells(, 4).Value + .Cells(, 5).Value
            a(i, 4) = .Cells(2, 1).Value + .Cells(2, 3).Value
            a(i, 5) = .Cells(2, 2).Value + .Cells(2, 4).Value + .Cells(2, 5).Value
            For ii = 2 To 5
                a(UBound(a, 1), ii) = a(UBound(a, 1), ii) + a(i, ii)
                a(i, 6) = a(i, 6) + a(i, ii)
            Next
        End With
    Next
    With Sheets("Pre-payment")
        .Range("a3", .Cells.SpecialCells(11)).Resize(, 6).Clear
        With .Range("a3").Resize(UBound(a, 1), 6)
            .Value = a
            .NumberFormat = """$""#,##0"
            With .Rows(.Rows.Count)
                .Cells(1).Font.Bold = True
                .Resize(, 5).Borders(8).Weight = xlThin
                .Resize(, 6).Borders(4).Weight = xlThin
                .Resize(, 5).Borders(4).LineStyle = xlDouble
                With .Cells(2, 5)
                    .Font.Bold = True
                    .Value = "TOTAL RETAINER"
                    .Range("b1").FormulaR1C1 = "=sum(r3c:r[-1]c)"
                End With
            End With
        End With
    End With
End Sub