Apologies for late response
if you are planing to add additional members, you will have to include rows in the templete ("sheet1") and Lists sheet.
you will have to change the Name reference and Target.address.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$5" Or Target.Address = "$B$13" Then
        Update
    End If
End Sub

Code:
Option Explicit

Sub Update()
Dim i, r_cnt, cnt As Integer
Dim c As Range
Set c = Range(ActiveCell.Offset(0, 1).Address)
r_cnt = ActiveCell.Row - 1
cnt = Range(Mid(c.Validation.Formula1, 2)).CountLarge
For i = 1 To cnt
    Range("c" & i + r_cnt).Value = Range(Mid(c.Validation.Formula1, 2)).Cells(1, i).Value
Next i
End Sub