как вам помочь? морально? или материально?

ola, а на какой ответ Вы рассчитывали? Ни названия сайта, ни слова о том, какую таблицу оттуда копировать...

Ни это ли требовалось?  
 
http://excelvba.ru/code/CurrencyRate

Sub GetDollar()    
  Dim sURI As String    
   Dim oHttp As Object    
   Dim htmlcode, outstr As String    
   Dim inpdate As Date    
   Dim d, m, y As Integer    
       
   inpdate = CDate(InputBox("Введите дату в формате ДД.ММ.ГГГГ", _    
       "Курс доллара", Date))    
   d = Format(inpdate, "dd")    
   m = Format(inpdate, "mm")    
   y = Format(inpdate, "yyyy")    
   sURI = "http://cbr.ru/currency_base/daily.aspx?C_month=" & M & "&C_year=" _    
                 & y & "&date_req=" & d & "%2F" & M & "%2F" & y    
   On Error Resume Next    
   Set oHttp = CreateObject("MSXML2.XMLHTTP")    
   If Err.Number <> 0 Then    
       Set oHttp = CreateObject("MSXML.XMLHTTPRequest")    
   End If    
   On Error GoTo 0    
   If oHttp Is Nothing Then    
       Exit Sub    
   End If    
   oHttp.Open "GET", sURI, False    
   oHttp.Send    
   htmlcode = oHttp.responseText    
   outstr = Mid(htmlcode, InStr(1, htmlcode, "USD") + 87, 7)    
   Set oHttp = Nothing    
   outstr = Replace(outstr, ",", ".")    
   ActiveCell.Value = outstr    
End Sub  
как сделать чтобы результат работы процедуры записывался в 3 столбец, предпоследней заполненной строки?