VBA code for multiply ranges from more than one Sheet

[2avrham]

I'm training to write VBA code that combine two sheets data rage to one email and send it. I used below code for my debug but I failed to do so time after time. Below code send one sheet range data and I want to add it additional rage from sheet2 (Worksheets("Sheet2").Range("b3:b30")

Sub Mail_take_2()

Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range

On Error GoTo StopMacro With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sendrng = Worksheets("Sheet1").Range("c2:j45")

Set AWorksheet = ActiveSheet

With Sendrng

.Parent.Select

Set rng = ActiveCell

.Select

ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = "This is test mail 2."

With .Item
.To = "aaa@aa.com"
.CC = ""
.BCC = ""
.Subject = "My subject"
.Send
End With

End With

rng.Select
End With

AWorksheet.Select

StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False

End Sub

 

[2avrham]

maybe I need to use string? any idea?