ActiveChart.SetSourceData Source:=Sheets("30102").Range("A" & ActiveCell.Row & "" & lr)

<INPUT align="right" class="input input_type_int rates-desktop__face-value-control-input" type="text" value="1" data-currency="USD" data-default="1">

Sub IE_AutiomationVL() 'Private Sub IE_Autiomation()
    Dim i As Long
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
    Dim DC As String
    DC = "data-currency"
    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    ' You can uncoment Next line To see form results
    IE.Visible = True
 
    ' Send the form data To URL As POST binary request
    IE.Navigate "http://www.vl.ru/dengi/"
 
    ' Statusbar
    Application.StatusBar = "www.vl.ru/dengi is loading. Please wait..."
 
    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
 
    
    Application.StatusBar = "Search form submission. Please wait..."
 
    Set objCollection = IE.Document.getElementsByTagName("input")
    
     
    i = 0
    While i < objCollection.Length
        If objCollection(i).data-currency = "USD" Then
 
            ' Set text for search
            objCollection(i).Value = "100"
 
        Else
            If objCollection(i).Type = "submit" And _
               objCollection(i).Name = "" Then
 
                ' "Search" button is found
                Set objElement = objCollection(i)
 
            End If
        End If
        i = i + 1
    Wend
    'objElement.Click    ' click button to search
    
    ' Wait while IE re-loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
    ' Show IE
    IE.Visible = True
 
    ' Clean up
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing
 
    Application.StatusBar = ""
End Sub

Sub Макрос1()
'
' Макрос1 Макрос
'
 
'
    Range("A3:B7").Select
    ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Select
    ActiveChart.SetSourceData Source:=Range("фев.16!$A$3:$B$7")
    ActiveSheet.Shapes("Диаграмма 1").IncrementLeft -137.25 ' вот тут вылетает ошибка
    ActiveSheet.Shapes("Диаграмма 1").IncrementTop -117
    ActiveSheet.Shapes("Диаграмма 1").ScaleWidth 1.3458333333, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Диаграмма 1").ScaleHeight 1.5520833333, msoFalse, _
        msoScaleFromTopLeft
     
     
End Sub