AND formula does not work inside the macro module

Dear all, If I try to run below macro code inside the macro module then it does not work & showing

Sub html()
Lastrow = Sheets("html").Range("A" & Rows.Count).End(xlUp).Row
Sheets("html").Range("B2").Resize(Lastrow).Formula = "=""<iframe style=""width: 100%; height: 370px;"" src=""http://www.exemple.com/graph/IntFinChart.aspx?TickerSymbol=""&D2&""&compname=""&A2&""%20%20-""&C2&""&se=BCS&TimeRange=180&ChartSize=H&Volume=1&VGrid=1&HGrid=1&LogScale=0&ChartType=CandleStick&Band=""frameborder=""0"" scrolling=""no""> </iframe>"
End Sub

Run-time error '1004'
Application-defined or object-defined error

but it works very well in the excel sheet if i use direct formula (manual)