Sending filtered range to email as body

I am trying to copy the filtered results and load them into an email body.

I have all the code for the email and to filter the results. My problem is how do I paste the filtered results or how do I save them as a variable to put them into the email body.

With ActiveSheet
.Range("B4:K4").AutoFilter
.Range("$B$4:$K$50").AutoFilter Field:=5, Criteria1:=strSalesManagerFilter
End With

I don't know what to do from here to save or get these results into the email.

Thank you,

JJ