Мой код VBA не помещает пользовательские данные в ячейки

Question

Это может показаться глупым вопросом, но я пытаюсь ввести некоторую информацию в пользовательскую форму, чтобы поместить ее в ячейку моего рабочего листа в базе данных.Все вводится правильно, кроме 4 строк.Может ли кто-нибудь объяснить мне, почему это так?Я, вероятно, упускаю что-то действительно глупое здесь, но я не могу найти это на всю жизнь.
Ниже мой код:

 Dim Initialrow As Variant

 Initialrow = Sheets("Jan").Range("Data_Start").Offset(1, 0)

If IsEmpty(Initialrow) = True Then
    Sheets("Jan").Range("Data_Start").Offset(1, 0).Value = InitialUF.VisitDate.Value
    Sheets("Jan").Range("RP_Start").Offset(1, 0) = InitialUF.RPName  '<-- This isn't executing'
    Sheets("Jan").Range("Proj_Start").Offset(1, 0) = InitialUF.Project ' <-- This isn't executing'
    Sheets("Jan").Range("Data_Start").Offset(1, 3) = Observation
    Sheets("Jan").Range("Data_Start").Offset(1, 4) = Comment
    Sheets("Jan").Range("Data_Start").Offset(1, 5) = Improvement

    If Len(Improvement) > Len(Comment) Then
       Sheets("Jan").Range("Data_Start").Offset(1, 5).Rows.AutoFit
    ElseIf Len(Comment) > Len(Improvement) Then
       Sheets("Jan").Range("Data_Start").Offset(1, 4).Rows.AutoFit
    ElseIf Comment = Null Then
       Sheets("Jan").Range("Data_Start").Offset(1, 5).Rows.AutoFit
    ElseIf Improvement = Null Then
       Sheets("Jan").Range("Data_Start").Offset(1, 4).Rows.AutoFit
    ElseIf Len(Comment) = Len(Improvement) Then
       Sheets("Jan").Range("Data_Start").Offset(1, 4).Rows.AutoFit
    Else
    End If
Else
    Sheets("Jan").Range("D1048576").End(xlUp).Offset(1, 0).Value = InitialUF.VisitDate.Value
    Sheets("Jan").Range("E1048576").End(xlUp).Offset(1, 0) = InitialUF.RPName '<-- This isn't executing'
    Sheets("Jan").Range("F1048576").End(xlUp).Offset(1, 0) = InitialUF.Project '<-- This isn't executing'
    Sheets("Jan").Range("Obs_Start").End(xlDown).Offset(1, 0) = Observation
    Sheets("Jan").Range("Obs_Start").End(xlDown).Offset(0, 1) = Comment
    Sheets("Jan").Range("Obs_Start").End(xlDown).Offset(0, 2) = Improvement

    If Len(Improvement) > Len(Comment) Then
        Sheets("Jan").Range("Data_Start").Offset(1, 5).Rows.AutoFit
    ElseIf Len(Comment) > Len(Improvement) Then
        Sheets("Jan").Range("Data_Start").Offset(1, 4).Rows.AutoFit
    ElseIf Comment = Null Then
        Sheets("Jan").Range("Data_Start").Offset(1, 5).Rows.AutoFit
    ElseIf Improvement = Null Then
        Sheets("Jan").Range("Data_Start").Offset(1, 4).Rows.AutoFit
    ElseIf Len(Comment) = Len(Improvement) Then
        Sheets("Jan").Range("Data_Start").Offset(1, 4).Rows.AutoFit
    Else
    End If
End If

RPName и Project оба названиятекстовых полей в пользовательской форме InitialUF.Этот код выполняется в последующем ст.Я скопировал и вставил эти строки из кнопки на InitialUF, где они правильно вводили, но теперь отказываются работать.
Спасибо за ваше время и заранее спасибо за помощь!