Crie uma nova coluna e selecione as células do cabeçalho, depois clique no botão 'Mesclar e centralizar' que fica na aba PAGINA INICIAL.
Usando seu exemplo fiz esse procedimento na primeira coluna, confira se é isso mesmo que precisa!

Provavelmente vc faria melhor se resumisse seus dados em uma tabela dinâmica.

Igor e isso mesmo que eu queria , e Djunqueira não pode ser dinâmica porque tem mais ações que quero fazer nessa tabela , o negocio e que não estou conseguindo descrever o que quero, porque tem que buscar somas em outra tabela, e meio complexo oque estou querendo.

Quero criar uma linha que divida em baixo do nome de cada farmácia em 2 colunas, para que eu coloque de um lado perfumaria, e do outro medicamente

Se você quiser experimentar, o código abaixo faz todo o trabalho rapidinho e sem mesclar células.
Coloquei 20 como largura das colunas, altere se desejar.

Sub InsereColunas()
 Dim LC As Long, k As Long
  Application.ScreenUpdating = False
  LC = Cells(1, Columns.Count).End(1).Column
  For k = LC To 4 Step -2
   Columns(k).Insert
   Range(Cells(1, k - 1), Cells(1, k)).HorizontalAlignment = xlCenterAcrossSelection
   Range(Cells(1, k - 1), Cells(1, k)).ColumnWidth = 20
   Cells(2, k - 1).Resize(, 2) = [{"PERFUMARIA", "MEDICAMENTO"}]
  Next k
    LC = Cells(1, Columns.Count).End(1).Column
    With Range("C2", Cells(2, LC)).Borders
    .LineStyle = xlContinuous
    .Weight = xlThick
   End With
  Application.ScreenUpdating = True
End Sub