buton1 tıklanma olayına aşağıdaki kodu ekleyip dener misiniz? ben sadece cinsiyete kadar aldım gerisini sizin eklemeniz gerekmektedir
dilerim işinize yarar

Dim SyfAdi As String

SyfAdi = MonthName(Month(Me.TextBox13))



With Sheets(SyfAdi)

SonStr = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

    .Activate

.Range("A" & SonStr).Value = SonStr - 2

.Range("B" & SonStr).Value = TextBox1.Value

.Range("c" & SonStr).Value = TextBox2.Value

.Range("d" & SonStr).Value = TextBox3.Value

.Range("E" & SonStr).Value = TextBox4.Value

.Range("f" & SonStr).Value = TextBox5.Value



End With