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
Bookmarks