New WorkBook Save As using a dynamic range list

[hscarbor]

Hello, I am trying to piece together a macro for a WorkBook where the end result would be to copy a form on Sheet"InnoluxRMA" to a new workbook and save it as "InnoluxRMA_{DyanamicRangeValue from Sheet"List"}_DateStamp. Sheet"List"'s data will always be column A, with a header row. Right now I have code that will open and save a new workbook as "InnoluxRMA_"A2"_DateStamp" but I don't know how to get it to loop to the end. Also, I have a code to Save Sheet"InnoluxRMA" as a new workbook. I need help merging these two, plus the dynamic range loop bit. Please help!(disclaimer: these are pulled from existing code from google searches....)

Sub MakeNewBook()
Dim wB As Workbook
Dim nPath As String
nPath = "C:\Users\scar015\Desktop\Innolux\InnoluxRMA_" & ThisWorkbook.Sheets("List").Range("A2").Value & Format(Date, "_mmddyyyy")
Set wB = Workbooks.Add
With wB
.SaveAs FileName:=nPath
.Close False
End With
End Sub

Sub sb_Copy_Save_ActiveSheet_As_Workbook()
Set wb = Workbooks.Add
ThisWorkbook.Activate
ActiveSheet.Copy Before:=wb.Sheets(1)
wb.Activate
wb.SaveAs "C:\Users\scar015\Desktop\Innolux\InnoluxRMA_"& Format(Date, "_mmddyyyy"End Sub