Bom dia,
Estou criando uma macro que gera um arquivo txt de acordo com um layout
Preciso verificar a ultima linha preenchida de um range, segue um pedaço do código, da forma que está ele pega a ultima linha preenchida de toda a coluna

Exemplo: coluna B
aa
bb
LINHA EM BRANCO
cc
dd
ee
ff

o range seria da linha 4 (cc) até 7 (ff)
segue um pedaço do código

Dim AreaTrab As Range
Dim Linha As Long

' Registro 1

Sheets("Empresa").Select
Set AreaTrab = Range("B7:N158") -- aonde estão os dados
Linha = Range("b158").End(xlUp).Row --- quantidade de linhas preenchida até a ultima..no exemplo acima ele traria 7 linhas, no entanto são somente 4
For i = 1 To Linha
With Meu_Reg_01
Meu_Reg_01.Tipo_Registro_01 = "1"
.ID = "000000000"
.CNPJ = AreaTrab.Cells(i, 1).Value
.razao_social = AreaTrab.Cells(i, 2).Value
.fantasia = AreaTrab.Cells(i, 2).Value
.brancos = AreaTrab.Cells(i, 12).Value
.sequencial = "000001" 'Format(Int(AreaTrab.Cells(i, 13).Value), "000000")

Agradeço a atenção de todos