Many ways -- here's one


Option Explicit

Sub test()
    'ActiveSheet.Copy After:=Sheets(Sheets.Count)
    'ActiveSheet.Name = "Products1"
    'Columns(1).EntireColumn.Insert
    
    Dim aryColHeaders As Variant
    'base = 0
    aryColHeaders = Array("Column1", "Column2", "Column3", "Column4", "Column5", "Date")
    
    With Worksheets("Products1")
        .Cells(1, 1).Value = "ID"
        With .Cells(1, 7).Resize(1, UBound(aryColHeaders) + 1)
            .Value = aryColHeaders
            .Interior.ColorIndex = 27
            .Font.Bold = True
        End With
        .Cells(2, 12).Value = Format(Now(), "mm/dd/yyyy")
    End With
End Sub