Laufzeitfehler '13 Typen unverträglich

Private Sub Save_Click()
Dim last As Long
With Worksheets("Data")
last = ActiveCell.EntireRow.Value
.Cells(last, 1).Value = UserForm1.Datum.Value
.Cells(last, 2).Value = UserForm1.Teilenummer.Value
.Cells(last, 3).Value = UserForm1.Fall.Value
.Cells(last, 4).Value = UserForm1.Deadline.Value
.Cells(last, 5).Value = UserForm1.Teilename.Value
.Cells(last, 6).Value = UserForm1.Sondervereinbarung.Value
.Cells(last, 7).Value = UserForm1.Risk_level_material.Value
.Cells(last, 8).Value = UserForm1.SOP.Value
.Cells(last, 9).Value = UserForm1.Risk_level_current_supplier.Value
.Cells(last, 10).Value = UserForm1.New_supplier.Value
.Cells(last, 11).Value = UserForm1.Risk_level_new_supplier.Value
.Cells(last, 12).Value = UserForm1.Current_quantity.Value
.Cells(last, 13).Value = UserForm1.Expected_quantity.Value
.Cells(last, 14).Value = UserForm1.Expected_change.Value
.Cells(last, 15).Value = UserForm1.Expected_change_total.Value
.Cells(last, 16).Value = UserForm1.Calculated_change.Value
.Cells(last, 17).Value = UserForm1.Expected_prevetion.Value
.Cells(last, 18).Value = UserForm1.RD.Value
.Cells(last, 19).Value = UserForm1.RD_optional.Value
.Cells(last, 20).Value = UserForm1.Generic_test.Value
.Cells(last, 21).Value = UserForm1.QD.Value
.Cells(last, 22).Value = UserForm1.QD_optional.Value
.Cells(last, 23).Value = UserForm1.Name_applicant
.Cells(last, 24).Value = UserForm1.Comments.Value
.Cells(last, 23).Value = UserForm1.Name_applicant
.Cells(last, 24).Value = UserForm1.Comments.Value
End With
Unload Me
End Sub