[Pliomera]

На кнопку вешай код:

Sub CopyTo()
Sheets("Forma").Cells(1, 1).Value = Sheets("Basa").Cells(Range("A2:A1000").End(xlDown).Row, 1).Value
End Sub

Здесь A2:A1000 - диапазон в котором размещен список фамилий. Если он у тебя другой - подставь соответственно.