---

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "Список!A2:A100"
    ListBox2.RowSource = "Курсы!A1:A4"
End Sub

Private Sub BtnAdd_Click()
    Sheets("Список").Rows(2).Insert Shift:=xlDown
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    ListBox2.Value = ""
End Sub

Private Sub BtnSave_Click()
    Sheets("Список").Cells(2, 1).Value = TextBox1.Text
    Sheets("Список").Cells(2, 2).Value = TextBox2.Text
    Sheets("Список").Cells(2, 3).Value = TextBox3.Text
    Sheets("Список").Cells(2, 4).Value = ListBox2.Value
    MsgBox "Готово!"
End Sub

Private Sub BtnDelete_Click()
    Dim i As Long
    i = ListBox1.ListIndex + 2
    If i > 1 Then Rows(i).Delete
End Sub

Private Sub BtnExit_Click()
    Unload Me
End Sub

Private Sub ListBox1_Change()
    Dim i As Long
    i = ListBox1.ListIndex + 2
    If i > 1 Then
        TextBox1.Text = Sheets("Список").Cells(i, 1).Value
        TextBox2.Text = Sheets("Список").Cells(i, 2).Value
        TextBox3.Text = Sheets("Список").Cells(i, 3).Value
        ListBox2.Value = Sheets("Список").Cells(i, 4).Value
    End If
End Sub

Private Sub BtnSortAsc_Click()
    Sheets("Список").Range("A1:D100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

Private Sub BtnSortDesc_Click()
    Sheets("Список").Range("A1:D100").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
End Sub