VBA To Copy Sheet And Rename Based On A Table

I have a macro which does the following:

1) Copies Sheet2 for each name on the list. Sheet1 has the list of names (cells A5:A10)

2) Renames each sheet with the next name on the list

3) In each of the copied sheets in cell A2=newsheetname

Sub Copy_Sheets()
Dim i As Integer
Dim wks As Worksheet
Set wks = Sheets("Sheet1")
For i = 5 To 10

[code].....

This works like a charm for this particular list. The thing is, I want to take this macro and apply it to a variable list. In one instance the list may be in cells A5:A10, and in another instance it may be in cells A5:A100. How can I update my macro so it looks for the next name in the list and stops when there is no longer a name.