Sorunuzu biraz geç farkettim. kusura bakmayın.
tc kimlik numarası için aşağıdaki kodu kullanabilirisniz. ve her textbox için Unloada Userform1 den önce bir üstteki satırı kopyalayıp textbox adını yazıp tekrarlayabilirsiniz.
Yapamazsanız bildirin dosyanıza bir textbox örneği yapayım.
Kod:
Private Sub CommandButton1_Click()
If TextBox2.Text <> "" Then
If Yeni_mi = True Then
Son_Dolu_Satir = Sheets("Personel Bilgisi").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Personel Bilgisi").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Personel Bilgisi").Range("A:A")) + 1
Sheets("Personel Bilgisi").Range("A" & Bos_Satir).Value = TextBox2.Text
Unload UserForm1
End If
End Sub