With AutoFilter - copy email address in active cell & paste in To field of Outlook email

Hi y'all, I'm new to the forum and need help with what seemingly should be an easy problem but hasn't been.
Here is the setup:
*Row 1 has column headers (Site number, Customer name, Order number, etc.)
*Column A contains specific site numbers
*Columns B-S have specific elements in each column related to the site numbers (customer name, order number, etc.)
*Column R has multiple email addresses in each cell that correspond with the site number in each row (site 123 in column A2 has 5 email recipient address in cell R2 and so on)

Using VBA with Auto.Filter, the goal:
*Filter each site in column A, which could have more than one order
*Copy header row and the row(s) of customer orders and columns A:S for each filtered site
*Paste data into an email as a table
*Copy the email addresses in column R then paste into the "To" field in the outlook email

I have everything else working but I'm stuck on pulling the email address out separately. The code I'm trying:

        Set oOutApp = CreateObject("Outlook.Application")
        Set oMailItem = oOutApp.CreateItem(0)

        With oMailItem
            .SentOnBehalfOfName = "Carmen@domain.com"
            .To = range.AutoFilter Field:=1, Criteria1:=ActiveCell.Value
            .Subject = "Action Required - Order Review"
            .BodyFormat = 2
            .Display
        End With

I'm getting a Compile error: Expected: end of statement with "Field" highlighted...what's wrong? Any help you can provide would be greatly appreciated!

Thanks!
Carmen

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)