loop Do While Não funciona

Boa tarde, tudo bem?

Só pra ver se eu entendi. Você quer olhar uma linha de cada vez na coluna K e se tiver um valor de data então colocar um "OK" na coluna L? Se for isso, o exemplo abaixo deve funcionar.

'Determinar última linha usada da coluna k
ultLinha = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

linha = 2

'Percorre linha a linha até a última linha usada da coluna K
While linha <= ultLinha
    'Verifico se é um data válida (vazio é uma data inválida)
    If IsDate(Cells(linha, "K")) Then
        Cells(linha, "L") = "Ok"
    Else
        Cells(linha, "L") = "Não Ok"
    End If

    linha = linha + 1
wend