Need Macro or VBA to extract data from report to use in Excel

I've now attached the original source report and the excel i would like to achieve. /Jeff

According to your attachment a VBA demonstration for starters :

PHP Code: 

Sub Demo1()
        V = ThisWorkbook.Path & "\REPORT DELAYED PAYMENTS.TXT"
        If Dir(V) = "" Then V = Application.GetOpenFilename("Text files,*.txt"): If V = False Then Exit Sub
        R& = FreeFile
        Open V For Binary As #R
        V = Split(Input(LOF(R), #R), "SSN: ")
        Close #R
        If Not V(0) Like "*DELAYED PAYMENTS *" Then Beep: Exit Sub
        ReDim W(1 To UBound(V), 1)
    For R = 1 To UBound(V)
        W(R, 0) = Split(V(R), vbCrLf)(0)
        W(R, 1) = Val(Split(V(R), "AMOUNT:")(1))
    Next
   With Blad1
       .UsedRange.Clear
       .[A1].Resize(UBound(W), 2) = W
       .UsedRange.Borders.Weight = 2
   End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

To create a text file from a text file Excel is very not necessary ‼

Anyway, according to your missing csv attachment , another VBA demonstration for starters :

PHP Code: 

Sub Demo2()
        V = ThisWorkbook.Path & "\REPORT DELAYED PAYMENTS.TXT"
        If Dir(V) = "" Then V = Application.GetOpenFilename("Text files,*.txt"): If V = False Then Exit Sub
        F% = FreeFile
        Open V For Binary As #F
        W = Split(Input(LOF(F), #F), "SSN: ")
        Close #F
        If Not W(0) Like "*DELAYED PAYMENTS *" Then Beep: Exit Sub
        Open Replace(V, ".txt", ".csv", , , 1) For Output As #F
    For R& = 1 To UBound(W)
        Print #F, Split(W(R), vbCrLf)(0) & "," & Val(Split(W(R), "AMOUNT:")(1))
    Next
        Close #F
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄