Excel VBAにてテーブルにレコードを追加

AddRecordToTable.vba

Sub AddRecordToTable()
    Set 購入リストテーブル = Worksheets("購入").ListObjects("購入リストテーブル")
    
    With 購入リストテーブル.ListRows.Add
        .Range(1).Value = "商品名"
        .Range(2).Value = "100"
        .Range(3).Value = "3"
        .Range(4).Value = "300"
    End With
End Sub