Вам просто нужно добавить значение ячейки с тем, что вы хотите
пример:
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
objWorkbook.SaveAs("c:\test.xlsx")
objWorkbook.Worksheets(1).Cells(1,1).Value = "x"
' Below will append append the value you add after ampersand (&) to the cell value
objWorkbook.Worksheets(1).Cells(1,1).Value = objWorkbook.Worksheets(1).Cells(1,1).Value & "y"
objExcel.Quit
Set objWorkbook = nothing
Set objExcel = nothing