Assuming that your sheet has entries in chronological order and is the first sheet in the workbook, you can populate a blank second sheet with this macro.
Sub Test()
Sheets(2).Cells.Clear
Sheets(2).Cells(1, 1) = "First"
Sheets(2).Cells(1, 2) = "Last"
Sheets(2).Cells(1, 3) = "E-mail"
Sheets(2).Cells(1, 4) = "Joined"
Sheets(2).Cells(1, 5) = "Installments"
Sheets(2).Cells(1, 6) = "Made"
Sheets(2).Cells(1, 7) = "Due"
Sheets(1).Activate
For N = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Application.CountIf(Sheets(2).Columns(3), Cells(N, 3)) = 0 Then
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Cells(N, 3)
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, -2) = Cells(N, 1)
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, -1) = Cells(N, 2)
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, 1) = Cells(N, 4)
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, 2) = Application.Max(Cells(N, 6), 1)
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, 3) = Application.CountIf(Columns(3), Cells(N, 3))
Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, 4) = Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, 2) - Sheets(2).Cells(Rows.Count, 3).End(xlUp).Offset(0, 3)
End If
Next N
End Sub
Open up the VBA editor by hitting ALT F11
Insert a new module by hitting Insert - Module
Paste the macro into the empty sheet
Hit ALT F11 to get back to the worksheet.
Run the macro by going to tools-macro in Excel 2003 or the view ribbon in Excel 2007.
Bookmarks