как импортировать данные о курсе доллара c rbc.ru

Sub P1()
Dim Ячейка As Excel.Range
For Each Ячейка In Range("D16:D21")
    'Если в ячейке есть буквы, то будет ошибка, поэтому
    'нужно проверку провести, что в ячейке нет текста.
    '"*#.*#" - означает: любое количество цифр до точки и
    'любое количество цифр после точки.
    If Ячейка.Value Like "*#.*#" Then
        'С помощью Replace меняем точку на запятую.
        'С помощью CDbl превращаем текст в число.
        Ячейка.Value = CDbl(Replace(Ячейка.Value, ".", ","))
        'Округление до 4-х цифр после запятой.
        Ячейка.NumberFormat = "0.0000"
    End If
Next Ячейка
End Sub

Sub P1()
'Работа с активной книгой:
'на первом листе данные, на втором листе сбор данных
'по максимальным и минимальным значениям.
Dim Максимальный As Double
Dim Минимальный As Double
Dim Низ As Long
'Определение максимальных и минимальных значений по столбцам.
'Для контроля можно использовать строку состояния (внизу в Excel):
'если щёлкнуть по ней правой кн. мыши, то можно выбрать, что показывать:
'максимальный элемент, минимальный элемент или что-то другое.
Максимальный = Application.Max(Worksheets(1).Columns("D"))
Минимальный = Application.Min(Worksheets(1).Columns("E"))
'Сохранение максимального и минимального значений на втором листе
'активной книги.
'Определение свободной ячейки в столбце A на втором листе.
Низ = Worksheets(2).Cells(Worksheets(2).Rows.Count, 1).End(xlUp).Row + 1
'Занесение данных в свободные ячейки:
Worksheets(2).Cells(Низ, 1).Value = Максимальный
Worksheets(2).Cells(Низ, 2).Value = Минимальный
Worksheets(2).Cells(Низ, 3).Value = Date
End Sub