VBA/Excel como contar o número de registros havendo células mescladas?

Olá, tenho a seguinte tabela com células mescladas em todos os cantos e gostaria de descobrir quantas propriedades tenho só pra botar dentro de um for em outra função.

/applications/core/interface/imageproxy/imageproxy.php?img=http://4.bp.blogspot.com/_gKAnDYGZZUo/TSIW7WagvZI/AAAAAAAAACE/QBJpnIgyDjQ/s1600/Tabela_Complexa.jpg&key=d8ce1ff85a2ab2598ec1a535b61b9715e901e92e852856546e25499741af69a9" alt="Tabela_Complexa.jpg" />

Usando .find localizei a palavra "mín", que só existe em um lugar, pulei duas linhas e comecei a contar: 1,2,1,2,1,2:

Dim i As Integer

 ActiveCell.Offset(3, 0).Select 'pulo três linhas

 i = 1

 While ActiveCell.Offset(i, 0).Value <> ""

 i = i + 1

 Wend

 num = i

 MsgBox num

End sub

Acontece que, ao chegar na célula, neste exemplo, "Número do Lote" (e é necessário contar assim, pq nem todas as tabelas possuem os mesmos campos e ñ sei o q pode estar escrito), a conta pára, pq "número do lote", por ser mesclada, conta que está na célula da esquerda.

Não posso fazer a conta pelas da esquerda pq "Vend A", "Vend B", etc estão mescladas, certo?; nem pelas células da direita - Na coluna "entrada" por exemplo - pois pode haver algum campo não preenchido no meio dos números.

Alguém, por favor, propõe um novo jeito de contar quantos campos existem entre a linha Vendedor/Semestre/Entrada... e a última linha????

Se, ao invés de usar <> "" eu usar IsEmpty ou IsNull, o programa trava.