Copy select cells from active row into email body

[Rkovsonic]

Hello,

I am looking for some help with the syntax for copying range A:F of th
active row based on the formula information from the vb excerpt below.
What you see works great, but I need to replace the "insert A-F HERE" i
the email body with actual data.


Sub FollowUp()
Dim Cell As Range
For Each Cell In Sheet3.Range("L3:L" & Sheet3.Range("L"
Rows.Count).End(xlUp).Row)
If IsEmpty(Cell.Value) Then GoTo X:
If Cell.Value - Date <= -10 Then
Cell.Interior.ColorIndex = 45
If Cell.Interior.ColorIndex =45 Then
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "The quote approval period for the Repair asset" & vbNewLine
_
"listed below has expired:" & vbNewLine & vbNewLine
_
"Insert A-F HERE" & vbNewLine & _
"Please contact the customer as soon as possible"
vbNewLine _

On Error Resume Next
With OutMail...


Thank you in advance for your patience and understandin