ALGUEM PODE ME INFORMAR COMO DIVIDO UMA COLUNA EM DUAS?
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, segue planilha exemplo. sei que deve ser um comando tranquilo e básico, mais não 
estou conseguindo;
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.
Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde. 
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
Osvaldo