You could try to check it this way:
If TDelement.isContentEditable = True Then
'... your code here like:
Sheets(sheetname).Range("A1").Offset(r, 0).Value = TDelement.Name
Sheets(sheetname).Range("A1").Offset(r, 1).Value = TDelement.Value
r = r + 1
End if
It works for sample HTML page I've tested it with. However, your HTML page could have different way of setting attributes of HTML tags.