Sub FindUniqueValues(SourceRange As Range, TargetCell As Range)
    SourceRange.AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=TargetCell,  Unique:=True
End Sub

• Create User Forms in Microsoft Excel
• Using Loops in VBA in Microsoft Excel
• The Best Shortcut Keys in Microsoft Excel
• Writing Your First VBA Function in Excel
• Add Combo Box to a Sheet in Microsoft Excel
• Formulas to calculate Loan payments in Microsoft Excel
• Array variables using VBA in Microsoft Excel
• Create an Amortization Schedule in Microsoft Excel
• Find duplicates items in combine columns in Microsoft Excel
• Vlookup Formula – Organizing the Data Table