Data from Userform not going into last empty cell

Hi,

you need to change the line

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

to

erow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

or alternatively,

erow = Sheet5.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

as Sheet1 in this case refers to the sheet "Monthly Metrics Summary" and not "Sheet1"

Please change the code for Command Button 1 to this..

Private Sub CommandButton1_Click()
    With Sheets("Sheet1")
    erow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    .Cells(erow, 1) = TextBox1.Text
    .Cells(erow, 5) = TextBox6.Text
    .Cells(erow, 6) = TextBox7.Text
    .Cells(erow, 8) = TextBox2.Text
    .Cells(erow, 9) = TextBox3.Text
    .Cells(erow, 11) = TextBox4.Text
    .Cells(erow, 12) = TextBox5.Text
    .Cells(erow, 15) = TextBox8.Text
    .Cells(erow, 16) = TextBox11.Text
    .Cells(erow, 17) = TextBox12.Text
    .Cells(erow, 18) = TextBox13.Text
    .Cells(erow, 19) = TextBox14.Text
    .Cells(erow, 20) = TextBox15.Text
End With
End Sub

Sheet1 and Sheets("Sheet1") are not same thing.. One is Sheets Code Name and another is Sheet's Display name..
Sheet(1) is Index Of that Sheet