Save new workbook with data from multiple sheets - excel

Question

I am fairly new at using VBA to manipulate data in Excel. I am trying to build about 800 bills of materials from data I have extracted from an old system we are replacing.
I have an Excel workbook with multiple sheets with a table on each sheet. What I need to do is work through every "ParentID" in one sheet and save each unique "Parent ID" and "ChildID" to a new workbook titled with the ParentID. Then lookup each unique "ChildID" in another worksheet and save data from this worksheet to the new workbook for each unique "ChildID".
I found the below VBA code and have been working on changing things to work for me as I think this will get me at least part way there but I am having trouble getting all of the Template values replaced with my values due to lack of knowlege on syntax and VBA code.
If someone could help me identify what I need to replace to get at least this code working I think I would be well on my way.
Thanks!
Option Explicit
Sub ExportData()
'Declare variables
Dim ArrayItem As Long
Dim tblUsedIn As Worksheet
Dim ArrayOfUniqueValues As Variant
Dim SavePath As String
Dim ColumnHeadingInt As Long
Dim ColumnHeadingStr As String
Dim rng As Range
'Set the worksheet to
Set tblUsedIn = Sheets("tblUsedIn")
'Set the save path for the files created
SavePath = Range("File Save Location")
'Set variables for the column we want to separate data based on
ColumnHeadingInt = WorksheetFunction.Match(Range("ParentID").Value, Range("Data[#Headers]"), 0)
ColumnHeadingStr = "Data[[#All],[" & Range("ParentID").Value & "]]"
'Turn off screen updating to save runtime
Application.ScreenUpdating = False
'Create a temporary list of unique values from the column we want to
'separate our data based on
Range(ColumnHeadingStr & "").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("UniqueValues"), Unique:=True
'Sort our temporary list of unique values
tblUsedIn.Range("UniqueValues").EntireColumn.Sort Key1:=tblUsedIn.Range("UniqueValues").Offset(1, 0), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
'Add unique field values into an array
'ArrayOfUniqueValues = Application.WorksheetFunction.Transpose(tblUsedIn.Range("IV2:IV" & RotblUsedIn.Count).SpecialCells(xlCellTypeConstants))
ArrayOfUniqueValues = Application.WorksheetFunction.Transpose(tblUsedIn.Range("UniqueValues").EntireColumn.SpecialCells(xlCellTypeConstants))
'Delete the temporary values
tblUsedIn.Range("UniqueValues").EntireColumn.Clear
'Loop through our array of unique field values, copy paste into new workbooks and save
For ArrayItem = 1 To UBound(ArrayOfUniqueValues)
tblUsedIn.ListObjects("Data").Range.AutoFilter Field:=ColumnHeadingInt, Criteria1:=ArrayOfUniqueValues(ArrayItem)
tblUsedIn.Range("Data[#All]").SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
ActiveWorkbook.SaveAs SavePath & ArrayOfUniqueValues(ArrayItem) & Format(Now(), " YYYY-MM-DD hhmmss") & ".xlsx", 51
ActiveWorkbook.Close False
tblUsedIn.ListObjects("Data").Range.AutoFilter Field:=ColumnHeadingInt
Next ArrayItem
tblUsedIn.AutoFilterMode = False
MsgBox "Finished exporting!"
Application.ScreenUpdating = True
End Sub