Function GetRate(ByVal CurrencyName As String, ByVal RateDate As Date) As Double
          ' функция возвращает курс валюты CurrencyName на дату RateDate
    ' в случае ошибки (неверная дата или название валюты) возвращается 0
    On Error Resume Next
     CurrencyName = UCase(CurrencyName): If Len(CurrencyName) <> 3 Then Exit Function
     Set xmldoc = CreateObject("Msxml.DOMDocument": xmldoc.async = False
     url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(RateDate, "dd\/mm\/yyyy"

     If xmldoc.Load(url_request) <> True Then Exit Function    ' Запрос к серверу ЦБР

     ' Обработка полученного ответа
    Set nodeList = xmldoc.selectNodes("ValCurs": Set xmlNode = nodeList.Item(0).CloneNode(True)
     Set node_attr = xmlNode.Attributes(0): strDate = node_attr.Value
     Set nodeList = xmldoc.selectNodes("*/Valute"
     For i = 0 To nodeList.Length - 1    ' поиск нужной валюты
        Set xmlNode = nodeList.Item(i).CloneNode(True)
         If xmlNode.childNodes(1).Text = CurrencyName Then
             CurrencyRate = CDbl(xmlNode.childNodes(4).Text)
             divisor = Val(xmlNode.childNodes(2).Text)
             GetRate = CurrencyRate / divisor
             Exit Function
         End If
     Next
End Function

 лист1.[a1:a2].Value = лист2.[a1:a2].Value

лист1.[a1].Value = лист2.[a1].Value 

WS_calc.Range("S5:S" & lastrow)).Value = WS_spec.Range("B5:B" & lastrow).Value

WS_calc.Range("S5:S" & lastrow)).Value = WS_spec.Range("B5:B" & lastrow).Value

WS_calc.Range("S5:S" & lastrow))= WS_spec.Range("B5:B" & lastrow)

Sub export_to_word()
    Set wa = CreateObject("Word.Application")
    wa.Visible = True: Set wd = wa.Documents.Add
    wd.PageSetup.Orientation = 0
    WS_calc.Range("A1:Z3").Copy
    wd.Range.PasteExcelTable False, False, False
    Application.CutCopyMode = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub