I have a command button that will populate a data sheet on the next empty row. However when I click the command button it re-writes over the top and bottom row of my data unless all data fields are used in the userform. This is my code:

Private Sub CommandButton2_Click()
Dim erow As Long

With Sheet1
erow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(erow, 1).Value = Stem1.Text
.Cells(erow, 2).Value = Stem2.Text
.Cells(erow, 3).Value = Val(NumberofPossibleResponses.Text)
.Cells(erow, 4).Value = Response1.Text
.Cells(erow, 5).Value = Response2.Text
.Cells(erow, 6).Value = Response3.Text
.Cells(erow, 7).Value = Response4.Text
.Cells(erow, 8).Value = Response5.Text
.Cells(erow, 9).Value = Response6.Text
.Cells(erow, 10).Value = AnswerKey.Text
.Cells(erow, 11).Value = ImageFile1Filename.Text
.Cells(erow, 12).Value = Val(ImageFile1xcoordinate.Text)
.Cells(erow, 13).Value = Val(ImageFile1ycoordinate.Text)
.Cells(erow, 14).Value = Val(ImageFile1Scaling.Text)
.Cells(erow, 15).Value = ImageFile2Filename.Text
.Cells(erow, 16).Value = Val(ImageFile2xcoordinate.Text)
.Cells(erow, 17).Value = Val(ImageFile2ycoordinate.Text)
.Cells(erow, 18).Value = Val(ImageFile2Scaling.Text)
.Cells(erow, 19).Value = Qualificationcmb.Text
.Cells(erow, 20).Value = CurriculumTopicMain
.Cells(erow, 21).Value = CurriculumAuxiliaryTopic1
.Cells(erow, 22).Value = CurriculumAuxiliaryTopic2
.Cells(erow, 23).Value = Val(TestID.Text)
.Cells(erow, 24).Value = Val(ItemSequenceNumber.Text)
.Cells(erow, 25).Value = Authors
.Cells(erow, 26).Value = QuestionType
.Cells(erow, 27).Value = Val(Weighting.Text)
.Cells(erow, 28).Value = Val(LevelOfDemand.Text)
.Cells(erow, 29).Value = EditorReviewer
.Cells(erow, 30).Value = Val(Version.Text)
.Cells(erow, 31).Value = StatusInLifecycle
.Cells(erow, 32).Value = StageOfDevelopment
.Cells(erow, 33).Value = AuthorNote
.Cells(erow, 34).Value = IPRCopyrightNote
.Cells(erow, 35).Value = ItemTitle
.Cells(erow, 36).Value = Context
.Cells(erow, 37).Value = TranslatorReviewer
.Cells(erow, 38).Value = StageOfDevelopmentWorkflow
.Cells(erow, 39).Value = EnemyItems
.Range("a2").Value = Stem1
.Range("b2").Value = Stem2
.Range("c2").Value = NumberofPossibleResponses
.Range("d2").Value = Response1
.Range("e2").Value = Response2
.Range("f2").Value = Response3
.Range("g2").Value = Response4
.Range("h2").Value = Response5
.Range("i2").Value = Response6
.Range("j2").Value = AnswerKey
.Range("k2").Value = ImageFile1Filename
.Range("l2").Value = ImageFile1xcoordinate
.Range("m2").Value = ImageFile1ycoordinate
.Range("n2").Value = ImageFile1Scaling
.Range("o2").Value = ImageFile2Filename
.Range("p2").Value = ImageFile2xcoordinate
.Range("q2").Value = ImageFile2ycoordinate
.Range("r2").Value = ImageFile2Scaling
.Range("s2").Value = Qualificationcmb
.Range("t2").Value = CurriculumTopicMain
.Range("u2").Value = CurriculumAuxiliaryTopic1
.Range("v2").Value = CurriculumAuxiliaryTopic2
.Range("w2").Value = Val(TestID.Text)
.Range("x2").Value = Val(ItemSequenceNumber.Text)
.Range("y2").Value = Authors
.Range("z2").Value = QuestionType
.Range("aa2").Value = Val(Weighting.Text)
.Range("ab2").Value = Val(LevelOfDemand.Text)
.Range("ac2").Value = EditorReviewer
.Range("ad2").Value = Val(Version.Text)
.Range("ae2").Value = StatusInLifecycle
.Range("af2").Value = StageOfDevelopment
.Range("ag2").Value = AuthorNote
.Range("ah2").Value = IPRCopyrightNote
.Range("ai2").Value = ItemTitle
.Range("aj2").Value = Context
.Range("ak2").Value = TranslatorReviewer
.Range("al2").Value = StageOfDevelopmentWorkflow
.Range("am2").Value = EnemyItems
End With

End Sub