I have this worksheet that has two columns, one labelled Month and the other labelled Number. I also have a form that allow me to enter the data into the worksheets under the two columns by clicking a button called "add". But what I want to do now is by clicking on another button called "End" I will be able to enter 3 rows under the data I've inserted into the worksheets with the name "min", "max" and "aver", this is what I have:

Private Sub CommandButton2_Click()
Dim jRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

jRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(jRow, 1).Value = "Min"
ws.Cells(jRow, 1).Value = "Max"
ws.Cells(jRow, 1).Value = "Aver"
End Sub
however this code only inserts the "Aver" under the data, but the Min and Max is no where to be found.