VBA UserForm Database Question

[jmk8602]

I have a userform set up, and I have a database where it populates my responses once they're submitted.

However, it overwrites the responses each time instead of writing them on the next open row.

I am a VBA novice and pieced together the code from other sites, so I'm really stuck.

Heres what I have so far, if anyone has an answer I would be really greatful:

RowCount = Worksheets("Data").Range("A2").CurrentRegion.Rows.Count
With Worksheets("Data").Range("A2")
.Offset(RowCount, 0).Value = Me.InterviewerName.Value
.Offset(RowCount, 1).Value = Me.InterviewerID.Value
.Offset(RowCount, 2).Value = Me.CoachName.Value
.Offset(RowCount, 3).Value = Me.CoachID.Value
.Offset(RowCount, 4).Value = Me.ObserverName.Value
.Offset(RowCount, 5).Value = Me.ObserverID.Value
.Offset(RowCount, 6).Value = Me.Project.Value
.Offset(RowCount, 7).Value = Me.txtDate.Value
.Offset(RowCount, 8).Value = Me.ComboBox1.Value
.Offset(RowCount, 9).Value = Me.Note1.Value
.Offset(RowCount, 10).Value = Me.Note1b.Value
.Offset(RowCount, 11).Value = Me.ComboBox2.Value
.Offset(RowCount, 12).Value = Me.Note2.Value
.Offset(RowCount, 13).Value = Me.Note2b.Value
.Offset(RowCount, 14).Value = Me.ComboBox3.Value
.Offset(RowCount, 15).Value = Me.Note3.Value
.Offset(RowCount, 16).Value = Me.Note3b.Value
.Offset(RowCount, 17).Value = Me.ComboBox4.Value
.Offset(RowCount, 18).Value = Me.Note4.Value
.Offset(RowCount, 19).Value = Me.Note4b.Value
.Offset(RowCount, 20).Value = Me.ComboBox5.Value
.Offset(RowCount, 21).Value = Me.Note5.Value
.Offset(RowCount, 22).Value = Me.Note5b.Value
.Offset(RowCount, 23).Value = Me.ComboBox6.Value
.Offset(RowCount, 24).Value = Me.Note6.Value
.Offset(RowCount, 25).Value = Me.Note6b.Value
.Offset(RowCount, 26).Value = Me.ComboBox7.Value
.Offset(RowCount, 27).Value = Me.Note7.Value
.Offset(RowCount, 28).Value = Me.Note7b.Value
.Offset(RowCount, 29).Value = Me.ComboBox8.Value
.Offset(RowCount, 30).Value = Me.Note8.Value
.Offset(RowCount, 31).Value = Me.Note8b.Value
.Offset(RowCount, 32).Value = Me.ComboBox9.Value
.Offset(RowCount, 33).Value = Me.Note9.Value
.Offset(RowCount, 34).Value = Me.Note9b.Value
.Offset(RowCount, 35).Value = Me.ComboBox10.Value
.Offset(RowCount, 36).Value = Me.Note10.Value
.Offset(RowCount, 37).Value = Me.Note10b.Value
.Offset(RowCount, 38).Value = Me.ComboBox11.Value
.Offset(RowCount, 39).Value = Me.Note11.Value
.Offset(RowCount, 40).Value = Me.Note11b.Value
.Offset(RowCount, 41).Value = Me.ComboBox12.Value
.Offset(RowCount, 42).Value = Me.Note12.Value
.Offset(RowCount, 43).Value = Me.Note12b.Value
.Offset(RowCount, 44).Value = Me.ComboBox13.Value
.Offset(RowCount, 45).Value = Me.Note13.Value
.Offset(RowCount, 46).Value = Me.Note13b.Value
.Offset(RowCount, 47).Value = Me.ComboBox14.Value
.Offset(RowCount, 48).Value = Me.Note14.Value
.Offset(RowCount, 49).Value = Me.Note14b.Value
.Offset(RowCount, 50).Value = Me.ComboBox15.Value
.Offset(RowCount, 51).Value = Me.Note15.Value
.Offset(RowCount, 52).Value = Me.Note15b.Value