estava com esse mesmo problema essa semana, a resolução foi simples... a área na qual voce quer que fique na Columm Heads só é selecionar para sua listview/textbox uma linha abaixo da Columm Heads.

Ex:
linha 1 = Columm Heads
linha 2 = essas são a tabela
linha 3 = ...
linha 4 = ...

veja se te ajuda o exemplo.

Sanon, não consegui atribuir sua dica ao codigo abaixo.. pode me ajudar?

With guia
While .Cells(linha, coluna).Value <> Empty
valor_celula = .Cells(linha, coluna).Value

If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then

With UserForm4.ListBox1
.AddItem
.List(linhalistbox, 0) = Sheets("estoque").Cells(linha, 1)
.List(linhalistbox, 1) = Sheets("estoque").Cells(linha, 2)
.List(linhalistbox, 2) = Sheets("estoque").Cells(linha, 3)
.List(linhalistbox, 3) = Sheets("estoque").Cells(linha, 4)
.List(linhalistbox, 4) = Sheets("estoque").Cells(linha, 5)
.List(linhalistbox, 5) = Sheets("estoque").Cells(linha, 6)
.List(linhalistbox, 6) = Sheets("estoque").Cells(linha, 7)
.List(linhalistbox, 7) = Sheets("estoque").Cells(linha, 8)
.List(linhalistbox, 8) = Sheets("estoque").Cells(linha, 9)

linhalistbox = linhalistbox + 1
conta_registros = conta_registros + 1
End With

End If
linha = linha + 1
Wend
End With

lbl_registros = conta_registros

End Sub

Então... consegui...
só que ta me trazendo a linha de baixo e dá um erro ao iniciar o userform...

Pode me ajudar?

Utilize a Pesquisa do Forum por : ListBox e terá :

Aproximadamente 443 resultados (0,25 segundos)

Se pesquisar por ColumnHeads encontrara dois Tópicos, e em um deles baixe o exemplo do Jose:
Cabeçalho das colunas no listbox
viewtopic.php?f=10&t=7079

[]s

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Text = ListBox1.Text
TextBox2.Text = ListBox1.Column(1, Me.ListBox1.ListIndex)
TextBox3.Text = ListBox1.Column(2, Me.ListBox1.ListIndex)
TextBox4.Text = ListBox1.Column(3, Me.ListBox1.ListIndex)
TextBox5.Text = ListBox1.Column(4, Me.ListBox1.ListIndex)
TextBox6.Text = ListBox1.Column(5, Me.ListBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = "1 cm; 2 cm; 1,5 cm; 4 cm; 6 cm; 2 cm "
End Sub

o código que sempre uso é assim como este!! vê ai se voce adapta

Welington,

se você estiver utilizando a propriedade "RowSource" para preencher o listbox, não será permitido inserir valores diretamente ao list (UserForm4.ListBox1.AddItem.List(linhalistbox, 0) =sheets("estoque").Cells(linha, 1)).

Você deve inserir os valores no intervalo de células que serve de fonte (ROWSOURCE) para o listbox.

Abraços.