create new sheet with header

[fezonio]

Hi

I'm having trouble programming in VBA. Basically, I need a code which allows me to create a new worksheet, with headers.
So far I have this code:

'Add a worksheet with the name "Consolidado"
    Set DestSh = ActiveWorkbook.Worksheets.Add
    DestSh.Name = "Consolidado"

But I don´t know how to create the worksheet with headers. The headers I need are, starting in column A row 3: Customer, Product, Country and Segment

Thanks in advance