Macro Loop Create Excel Files

Hello,

I have two columns of filepaths in excel. I would like to write a macro that will open the excel file listed in Column D (with a rowcounter) and save it as a new file with the name/path in Column E (same rowcounter). I would like to loop through the entire list of file paths to do this quickly.

Here is what I have so far. Can't seem to troubleshoot this though.

    Dim rowcounter As Integer
    Dim filepath As String
    Dim template_file As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("IAS")
    Dim xlapp As Excel.Application
       
    rowcounter = 3
       
    Do While Not IsEmpty(Sheets("IAS").Range("B" & rowcounter).Value)
       template_file = ws.Cells(rowcounter, 4).Value
       filepath = ws.Cells(rowcounter, 5).Value
       xlapp.Workbooks.Open Filename:=template_file
       ActiveWorkbook.SaveAs Filename:=filepath _
       , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
       ReadOnlyRecommended:=False, CreateBackup:=False
    rowcounter = rowcounter + 1
    Loop