I have been working on a VBA macro script to help import and organize XML files regarding user requests. However, right now I'm trying to add the filename as it contains the name of the user who sent in that specific XML file. I managed to formulate a code to import the XML and add the filename at the end of each XML import but now I want to import the filename along with the data (as in on every row at the end column). As shown with XXX denoting XML data:

```
XXX1    XXX1  filename1  
XXX1    XXX1  filename1  
XXX1    XXX1  filename1  
XXX2    XXX2  filename2  
XXX2    XXX2  filename2  
XXX2    XXX2  filename2

```

Right now my code looks like this

```vb
Option Explicit

Sub LoopThroughFiles()

    Dim strFile As String, strPath As String, Num As Long, LR As Integer

    strPath = "C:\Requests\"
    strFile = Dir(strPath & "*.xml")
    Num = 0

    While strFile <> ""

        ActiveWorkbook.XmlMaps("resources_Map").Import Url:= _
        (strPath & strFile)

        strFile = Dir

        Num = Num + 1

        LR = Cells(Rows.Count, "A").End(xlUp).Row
        LR = LR + 1
        Cells(LR, "A") = strFile

    Wend

MsgBox "This code ran successfully for " & Num & " XML file(s)", vbInformation

End Sub

```

Current code works like this: 

```
XXX1 XXX1  
filename1  
XXX2  XXX2  
filename2  

```

It looks like a simple adding a column but I'm not sure how to add values to all the rows in the XML import. Thanks in advance!