Sub test()
Set sht = Sheets("Sheet1")
RowCount = 1
Set objIE = CreateObject("internetexplorer.application")
With objIE
.Visible = False
.navigate "http://www.vbapro.info"
Do While .Busy Or .readyState <> 4
DoEvents
Loop
For Each ele In .document.all
Select Case ele.tagName
Case "DIV":
sht.Range("A" & RowCount) = ele.innertext
RowCount = RowCount + 1
End Select
Next ele
End With
Set objIE = Nothing
End Sub