Pedro, verifique o seguinte: Não é Do Until e sim Do While, neste caso especificamente (precisa incluir: linha = linha + 1 antes do Loop também) (Ou ...

... Começando do principio, tenho uma planilha que utilizada por varias pessoas ao mesmo tempo, por possuir varias macros, opitei por não compartilhar...