VBScript to write data in excel and Format

Dim xl
Set xl= CreateObject("Excel.Application")

xl.Visible = True
xl.Workbooks.Add

xl.Cells(1, 1).Value = "Name"
xl.Cells(1,2).value="Score"

Set r=xl.Range("A1","B1")
r.Font.Bold = TRUE
r.Interior.ColorIndex = 3
r.Font.ColorIndex = 2

xl.Cells(2, 1).Value = "venkatadri naidu"
xl.Cells(2, 2).Value = "80"
xl.Cells(3, 1).Value = "james"
xl.Cells(3, 2).Value = "70"
xl.Cells(4, 1).Value = "kiran"
xl.Cells(4, 2).Value = "60"
xl.Cells(5, 1).Value = "harish"
xl.Cells(5, 2).Value = "65"

Set r = xl.Range("A1","B5")
r.Font.Size = 14

Set r = xl.Range("A2","B5")
r.Interior.ColorIndex = 4

Set r = xl.ActiveCell.EntireColumn
r.AutoFit()