Excel Object Model: add rows to a ListObject

option explicit

sub main() ' {

    dim rngHeader as range
    set rngHeader = range(cells(2,2), cells(2,4))
    rngHeader.value = array("col one", "col two", "col three")

    dim table as listObject
    set table = activeSheet.listObjects.add(   _
       sourceType             := xlSrcRange  , _
       source                 := rngHeader   , _
       xlListObjectHasHeaders := xlYes)

    table.listRows.add.range.value = array("foo", 42, #2020-03-05#)
    table.listRows.add.range.value = array("bar", 99, #2017-10-17#)
    table.listRows.add.range.value = array("baz",  5, #2018-03-21#)

end sub ' }

After running this simple program, the following list table is produced: