Private Sub UserForm_Click()
With Sheets("RDVCH")
L = .Range("A65536").End(xlUp).Row + 1
For j = 0 To 14
.Range("A" & L + j) = Controls("TextBoxCh" & 3 * j + 1)
.Range("B" & L + j) = Controls("TextBoxCh" & 3 * j + 2)
.Range("G" & L + j) = Controls("TextBoxCh" & 3 * j + 3)
.Range("C" & L + j).Value = TextBox1.Value
.Range("D" & L + j).Value = TextBox2.Value
.Range("E" & L + j).Value = TextBox3.Value
Next j
End With
End Sub