Уплотнить код

[segail]

Условие для ячеек U5 и V5 выглядит объемно. Вначале данные заносятся в ячейки, а затем если в TextBox3 нет значений, удаляются. Нельзя ли это объединить? И вообще код корректно исполнен или нет?. Хотя код работает нормально.

Private Sub CommandButton1_Click()
If Sgn(Len(TextBox3)) = Sgn(Len(TextBox4)) Then
If CDate(TextBox1) <> CDate(Sheets("Отчет").Range("R1")) Then
MsgBox " Год ввода данных выбран не верно.", vbInformation, "Запрет ввода"
Exit Sub
End If
'Ввод начального остатка в отчет
If TextBox3 = "" Then ComboBox1 = "0"

    With Sheets("Отчет") ' Сгруппировано для наглядности
        .Range("K6") = TextBox3.Text
        .Range("L6") = TextBox4.Text
        .Range("J5") = ComboBox1.Text
        .Range("U5").Value = Val(Replace(Label_norm1.Caption, ",", "."))
        .Range("V5").Value = Val(Replace(Label_norm2.Caption, ",", "."))
        If TextBox3 = "" Then .Range("U5").Value = ""
        If TextBox3 = "" Then .Range("V5").Value = ""
    End With
    
    Unload Me
    UserForm1.Show
Else: MsgBox " Данные введены не корректно.", vbInformation, "Запрет ввода"
End If
End Sub

[motorway]

Заменяем на

      .Range("U5:V5").Value

...

If TextBox3 = "" Then 
.Range("U5:V5").Value = ""
End if