sending filtered sheet emails from excel

I'd need to create a button in my excel sheets, which sends excel sheets using outlook.. my problem is the following:

Column A contains email addresses, and on the top of the column is a filter which filters other cells by email-addresses (column A). So, every email address is linked to unique data, and this information should be sent to the address.

Now I do this manually through
1) push email image button to open outlook header on excel toolbar
2) select the first name from the filter,
3) copy-pasting the name from A1 cell to outlook 'To' field,
4) pushing 'Send this sheet',
5) selecting the second name, copy-paste, send, and so on until to the last name in column A (followed by empty cell)..

I should automate this process under one button. I tried to do this by recording macros, but I couldn't make it work. Maybe this can be done though excels VBA editor? can someone help me with the code, or at least give guidance how to do this?

Thanks,
hikko

Use the Unique parameter of the advancedfilter to get a list of every unique email address and then autofilter on that email address. Then copy, paste and email.

For i = 1 To ActiveSheet.UsedRange.End(xlDown).Row
ActiveSheet.Columns(1).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
If ActiveSheet.Rows(i).Hidden = False Then
ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:=Cells(i, 1).Value
End If
'Copy paste and email here
Next