Este fórum está sendo desativado

[EudesMilitao]

Boa noite!
Pessoal,
Adaptei duas macros que encontrei no fórum para copiar imagem e colar no corpo do e-mail e ao mesmo tempo anexar o mesmo arquivo.
A questão é a seguinte: O tamanho do arquivo varia e tem duas Plans. Preciso que a macro copie a área variável e anexe só uma Plan.
A minha macro está copiando uma área definida e anexando todo o arquivo. Alguém pode ajudar?

Desde já, agradeço.

Eudes Militão

[alexandrevba]

Bom dia!!

Segue.

Código: Selecionar todos

Sub AleVBA_5678()
'Fonte:https://www.thespreadsheetguru.com/blog/2014/7/7/5-different-ways-to-find-the-last-row-or-last-column-using-vba
Dim sht As Worksheet
Dim DataRange As Range
Dim LastRow As Long

Set sht = ActiveSheet

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
Set DataRange = Range("A1:G" & LastRow)

DataRange.Copy '...seu código

End Sub

Att