This should help, you'll need to tidy the output.

[VBA]Sub getDocDetails()
Dim xml As Object, html As Object, aTag As Object, tdTag As Object, tdTags As Object
Dim cnt As Long, str As String

Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
Set html = CreateObject("htmlfile")

With xml
.Open "GET", "http://www.suggestadoctor.com/doctors_list_al_310_alabama_urology.htm", False
.Send
html.body.innerhtml = .responseText
End With

For Each aTag In html.Links
If Left(aTag, 13) = "about:doctor_" Then
cnt = cnt + 1
Sheets("Sheet1").Range("A" & cnt) = aTag.innertext
Sheets("Sheet1").Range("B" & cnt) = "http://www.suggestadoctor.com/" & Replace(aTag, "about:", "")
End If
Next aTag

For cnt = 1 To Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
With xml
.Open "GET", Sheets("Sheet1").Range("B" & cnt), False
.Send
html.body.innerhtml = .responseText
End With

Set tdTags = html.getElementsByTagName("TD")

str = vbNull
For Each tdTag In tdTags
If (tdTag.classname = "tcat" Or tdTag.classname = "leftcol_tbody" Or _
tdTag.classname = "tcat_rightcol" Or tdTag.classname = "rightcol_tbody") Then
str = str & tdTag.innertext & Chr(13)
End If
Next tdTag
Sheets("Sheet2").Range("A" & cnt) = str
Next cnt

End Sub[/VBA]