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 o Aplicativo Microsoft Excel VBA - com Saberexcel

Macro simples do Aplicativo Microsoft Excel VBA, que adiciona um cabeçalho na folha de planilha, contém também uma macro auxíliar para ajudar no teste, deletanto o cabeçalho inserido. Observe que a macro está usando a instrução For Each, isso afeta todas as planilhas do livro, então, a macro inserirá cabeçalho em todas as planilhas do livro.


Sub Inserir_cabecalho_todas_planilhas()
'Adiciona uma espécie de cabeçalho em todas planilhas.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").Value = "DATA"
ws.Range("B1").Value = "NOME"
ws.Range("C1").Value = "ENDEREÇO"
ws.Range("D1").Value = "CIDADE"
ws.Range("E1").Value = "C E P"
Next ws
End Sub

Sub Limpar_cabecalho_todas_planilhas()
'Adiciona uma espécie de cabeçalho em todas planilhas.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").Value = ""
ws.Range("B1").Value = ""
ws.Range("C1").Value = ""
ws.Range("D1").Value = ""
ws.Range("E1").Value = ""
Next ws
End Sub


Aprenda sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um cabeçalho formatado linhas e colunascom altura e largura de linhas, em seguida insere anos nas colunas por meio de um arrays, formata a fonte (estilo e tamanho) na linha(2). Espero que o exemplo lhes sejam útil.
Fiquem com Deus, Expedito Marcondes.

Sub Inserindo_cabecalho_ajustando_linhas_colunas()
Set vPlan = Saber1

With vPlan.Range("B1:E1")
.Value = Array(2010, 2011, 2012, 2013)
.HorizontalAlignment = xlCenter
'.Style = "Title"
.ColumnWidth = 39 'largura das colunas
.Offset(1, 0).RowHeight = 100 ''altura das linhas
End With

With vPlan.Range("B2:E2")
.Value = Array("Saberexcel", "Saberexcel", "Saberexcel", "Saberexcel")
.Font.Name = "Old English Text MT"
.Font.Size = 28
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

[A3].Select
End Sub

Sub Limpar_para_teste()
Set vPlan = Saber1
Cells.Clear

With vPlan.Range("B1:E3")
.ColumnWidth = 8.57
.RowHeight = 15.75
End With

[A3].Select
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