Tenho a instrução abaixo, porém preciso que seja feito com as células que eu selecionar e não celulas fixas como é atualmente.
Com certeza vcs vão conseguir me ajudar , vcs são mestres!!

Sub email1()
Dim Cells As Range
' E-MAIL 1
'
' Atalho do teclado: Ctrl+Shift+D
ActiveSheet.Range("H2:I20").Select

ActiveWorkbook.EnvelopeVisible = False
With ActiveSheet.MailEnvelope
.Introduction = "Bom dia Srs(ª)."
.Item.To = "[email protected]"
.Item.Cc = ""
.Item.Subject = "ATRASOS"
.Item.Send
End With

End Sub