Copy header and description from explorer link and paste it in excel

[nemadedurgesh]

Hi,

I need to copy and paste only header and description from explorer link. Below link extracts all test on explorer.

Expected Results as below-

[h=3]Kolkata gets best cities award for tackling climate change[/h]
[FONT=&quot]Kolkata, along with 10 other cities from across the globe, has been honoured with the best cities of 2016 award in recognition of its programme on solid waste management. [/FONT]

[FONT=&quot]Kolkata, the only Indian city to win the honour, received the award during the C40 Mayors Summit held in Mexico. Other cities which won the award include Copenhagen, Sydney, and Paris.[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]So, let's discuss some questions related to this post:[/FONT]
[FONT=&quot]Q1. Name of the Indian city honoured with the best cities of 2016 award in recognition of its programme on solid waste management?[/FONT]
[FONT=&quot]Ans1. Kolkata[/FONT]



=================================
VBA Script
=================================
Sub Test()
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://currentaffairs.adda247.com/2016/12/kolkata-gets-best-cities-award-for.html" ' should work for any URL
Do Until .ReadyState = 4: DoEvents: Loop

x = .document.body.innertext
x = Replace(x, Chr(10), Chr(13))
x = Split(x, Chr(13))
Range("A1").Resize(UBound(x)) = Application.Transpose(x)

.Quit
End With

End Sub
==================================