arranging the code for headers ,borders

Leap

In your sub Test, I added the lines (in bold) below, within a new With statement. They simply insert new columns and headings (as you requested). The comments are for guidance only and can be deleted once you understand what is happening:

With ws2
    'insert 2 columns
    .Columns("D:E").Insert
    ' Add new headings
    .Range("D1").Value = "TYPE"
    .Range("E1").Value = "MANUFACTURE"

    .Range("A2").Resize(Lr2 - 1, 9).Value = arr

    ' fit columns to content
    .Columns("A:I").AutoFit
End With

Incidentally you have a With Application... End With section but only use .Trim (to get the worksheet function. You don't need this really and can use VBA's Trim method instead. Note that VBA also has LTrim (which deletes spaces only from the left of the string) and RTrim (if you want to remove "trailing" spaces only).

Hope this helps.