Option Explicit
Private RngDon As Range, TDon()
Private Sub UserForm_Initialize()
Dim L&, C&
Set RngDon = ActiveSheet.[A3:F14]
TDon = RngDon.Value
For L = 1 To UBound(TDon, 1)
Me("Label" & L).Caption = TDon(L, 1)
For C = 2 To 6
Me("TextBox" & (L - 1) * 5 + C - 1).Text = TDon(L, C)
Next C, L
End Sub
Private Sub CommandButton1_Click()
Dim L&, C&
Set RngDon = ActiveSheet.[A3:F14]
TDon = RngDon.Value
For L = 1 To UBound(TDon, 1)
For C = 2 To 6
If C < 4 Then
TDon(L, C) = CDate(Me("TextBox" & (L - 1) * 5 + C - 1).Text)
Else
TDon(L, C) =...