Saberexcel - o site das macros 
Essas macros do Aplicativo Microsoft Excel VBA, insere um cabeçalho de coluna para formação de uma tabela simples.
Sub Inserindo_cabecalho_em_colunas()
Dim vArray As Variant 'variável insere dados vArray
Dim vContador As Integer
' variavel vArrays variant com array de dados
vArray = Array("", "Nome", "Endereço", "Bairro", "Cidade", "Estado", "Observaçoes")
'Inserindo o cabeçalho na folha de planilha(Plan2)
With Worksheets("Plan2")
For vContador = 1 To UBound(vArray)
.Cells(1, vContador).Value = vArray(vContador)
Next vContador
End With
End Sub
Observe que aqui usei uma linha de código para localizar todas as células usadas no cabeçalho, veja que End(xlToRight), localiza todas as células
à direita da célula (A1), clearcontents deleta os dados sem deletar os formatos.
Sub limpar_cabecalho()
Worksheets("Plan2").Select
Range("A1", [A1].End(xlToRight)).ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba cabecalho macro insere cabecalho de tabela e deleta (24.57 kB)
