Copy a range to the body in email message

I am using this code to send emails from excel. It works 100%

I want to use the same code, but to send sheet1.Range("A1:N56") as the body

Sub SendEmail()
Dim OutlookApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim EmailAddr As String
Dim Subj As String
Dim Sender As String
Dim Msg As Range

    Set OutlookApp = New Outlook.Application
    Set MyItem = OutlookApp.CreateItem(olMailItem)
    EmailAddr = Sheet2.Range("B1").Value
    Subj = "MANUAL TRANSMITTAL - " & Sheet1.Range("M5").Value & " - Notification"
    Sender = Sheet2.Range("E5").Value
    
    Msg = UserForm2.ComboBox1.Value & " " & UserForm1.TextBox1.Value & vbCrLf & vbCrLf
    Msg = Msg & UserForm2.TextBox2.Value & vbCrLf & vbCrLf
    Msg = Msg & UserForm2.ComboBox2.Value & vbCrLf
    Msg = Msg & Sender & vbCrLf & vbCrLf
    Msg = Msg & "Sent on " & Date & " at " & Time
        
    With MyItem
        .To = EmailAddr
        .Subject = Subj
        .Body = Msg
        
        If UserForm2.CheckBox1.Value = True Then
        .ReadReceiptRequested = True
        Else
        .ReadReceiptRequested = False
        End If
        
        If UserForm2.OptionButton1.Value = True Then
        .Display
        End If
        
        If UserForm2.OptionButton2.Value = True Then
        .Save
        End If
        
        If UserForm2.OptionButton3.Value = True Then
        .Send
        End If
    End With
End Sub