Dim sht As Worksheet
    Set sht = ActiveSheet
    Dim lst As ListObject
    Set lst = sht.ListObjects.Add
    lst.Name = "table"
    Dim cols
    cols = Array("Date", "Who", "SendTo", "Subject", "Body")
    For Each cc In cols
        lst.ListColumns.Add.Name = cc
    Next
    
    lst.ListColumns(1).Delete
    
    With lst.ListRows.Add
        lst.ListColumns("Date").DataBodyRange(RowIndex:=.Index) = Now
    End With

Dim sht As Worksheet
    Set sht = ActiveSheet
    Dim lst As ListObject
    Set lst = sht.ListObjects.Add
    lst.Name = "table"
    Dim cols
    cols = Array("Date", "Who", "SendTo", "Subject", "Body")
    For Each cc In cols
        lst.ListColumns.Add.Name = cc
    Next
    
    lst.ListRows.Add.Range("[Date]") = Now 

Test (CStr(vURLSheet.Cells(cRow, cURL)))

Sub Test(aURL As String)
  
  Const TIMEOUT = 10
  
  Dim IE As Object
  Dim t As Single
  Dim txt As String
   
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Navigate aURL
 
 While IE.readyState <> 4 '<---Ошибка возникает тут, т.к. нет свойства readyState
    DoEvents
  Wend
  
 t = Timer + TIMEOUT
    
 While IE.Document Is Nothing And Timer < t
    DoEvents
  Wend
  If IE.Document Is Nothing Then MsgBox "Time is gone", vbCritical, "Canceled": GoTo exit_
  
  txt = IE.Document.body.innerText
  Debug.Print txt
  
exit_:
 
  ' Exit
  IE.Quit
  Set IE = Nothing
  
End Sub
 

Dim WIE as Object
Set WIE= CreateObject("InternetExplorer.Application")

WIE.Navigate "www.ya.ru" '<-- Тут всё работает и если предварительно поставить WIE.visible = true, то можно увидеть загруженную страницу
txt$ = WIE.Document.body.innertext '<--А тут уже всё плохо, type WIE становится просто object, и Excel не знает какие свойства есть у объекта. Естественно это вызывает ошибку.

WIE.quit: set WIE = Nothing