Esta macro super simples copiará uma linha de uma planilha para outra.Sub Colar_UmaLinha() 'Copiar e Colar Linha Sheets("Planilha1").Range("1:1").Copy Sheets("Planilha2").Range("1:1") Application.CutCopyMode = False End SubEnviar E-mailEsta macro útil iniciará o Outlook, redigirá...