Excel localizar proxima celula em branco

[Janilson Brito]

senhores, bom dia!

poderiam me ajudar?

tenho a função abaixo que localiza a primeira célula vazia na coluna.

gostaria de saber se tem como usar o comando abaixo quando na coluna tem uma linha que esta mesclada.

ou seja , o comando vai na D2 esta vazia, vai para D3.

quando chega na D4 a linha esta mesclada com todas as colunas.

então o código continua a busca na célula A5

inserir um modelo em anexo

 

Public Sub celula_branco()

    Dim Y, X As Integer
        Sheets("TESTEº").Select
        Range("D2").Select                      ' Seleciona a começa a correr a celula a partir desta posição
    Do                                          ' Inicio do LOOP
        If IsEmpty(ActiveCell) = False Then     ' Verifica se posição tem ou não texto
            ActiveCell.Offset(1, 0).Select
        End If                                  ' Fim de IF

    Loop Until IsEmpty(ActiveCell) = True       ' Se posição inicial não tem texto efetuar comandos
                        
End Sub

linha branco.rar

[Visitante]

Sub PrimeiraLinhaVaziaNaColunaDAbaixoDaTabela()
 Dim k As Long
 k = Cells(Rows.Count, 4).End(3).Row + 1
 If Range("D" & k).MergeCells = True Then k = k + 1
 MsgBox k
End Sub

dica - se a sua ideia com este comando Dim Y, X As Integer foi declarar Y também como Integer, então o correto é Dim Y As Integer, X As Integer

[Janilson Brito]

35 minutos atrás, osvaldomp disse:

Sub PrimeiraLinhaVaziaNaColunaDAbaixoDaTabela()
 Dim k As Long
 k = Cells(Rows.Count, 4).End(3).Row + 1
 MsgBox k
End Sub

 

dica - se a sua ideia com este comando Dim Y, X As Integer foi declarar Y também como Integer, então o correto é Dim Y As Integer, X As Integer

Osvaldo, mais uma vez obrigado pela sua ajuda, inclusive já corrigi o comando Dim conforme você orientou.