Загрузка данных

Private Sub Добавить Click(
Cells(2, I). Select
Selection. EntireRow.Insert
ListBox1.RowSource = "имя листа! лиапозон"
Добавить. Enabled = False Записать.Enabled = True
End Sub
Private Sub Записать Click(
Cells(2, 1) = UserForml. TextBox 1.Text
Cells(2, 2) = UserForm1 TextBox2.Text
Cells(2, 3) = UserForm1. TextBox3.Text
Cells(2, 4) = UserForml.ListBox2.Text
ListBox1.RowSource - имя листа!диапозон"
Записать.Enabled = False
Добавить. Enabled = True
End Sub