Making report from log data by macro

Try this macro

Sub Test()
For N = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(N, 1) Like "eanwhos@dhuas2*" Then
        CurrentBSEID = Mid(Cells(N, 1), 21)
    ElseIf Cells(N, 1) Like "DIP*" And Cells(N, 1) <> "DIP DOES NOT EXIST" Then
        N = N + 1
        MyString = Cells(N, 1)
        For X = 1 To Len(Cells(N, 1))
            MyString = WorksheetFunction.Substitute(MyString, "  ", " ")
        Next X
        MyArray = Split(MyString, " ")
    
        Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = CurrentBSEID
        Cells(Rows.Count, 3).End(xlUp).Offset(0, 1) = MyArray(0)
        Cells(Rows.Count, 3).End(xlUp).Offset(0, 2) = MyArray(2)
        Cells(Rows.Count, 3).End(xlUp).Offset(0, 3) = MyArray(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/2010.

Hi mrice, You did excellent job for me, it works very well , I really appreciate your job, thank you very much..