Add new column in excel using Visual Basic

[jcis]

Try this (sh is the WorkSheet Object)

    With sh.UsedRange
        sh.Cells(.Row, .Column + .Columns.Count) = "CATATAN"
    End With

A complete example loading a WorkBook, making this change, saving and exiting:

Dim ex As Excel.Application
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet

    Set ex = New Excel.Application
    Set wb = ex.Workbooks.Open("C:\wb1.xls")
    Set sh = wb.Worksheets(1)
        
    With sh.UsedRange
        sh.Cells(.Row, .Column + .Columns.Count) = "CATATAN"
    End With
    
    wb.Save
    Set sh = Nothing
    wb.Close
    Set wb = Nothing
    ex.Application.Quit
    Set ex = Nothing