Hej!
Eftersom jag inte har kunskapen själv så vänder jag mig till er.
Går det att ordna så att fakturan blir i PDF format, använder följand skript nedan.
Sub Send_Range1()
Dim sMail As String: sMail = Sheets("Register").Range("I2")
Application.ScreenUpdating = False
ActiveSheet.Range("A1:I29").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Stuga x"
.Item.To = sMail
.Item.Subject = "Faktura"
.Item.Send
End With
Application.CutCopyMode = False
Range("M40").Select
Application.ScreenUpdating = True
End Sub