А макросом? Вообще-то название сообщества "Программирование на VBA"
Public Sub SergP()
Dim Srs As Range, Srs1 As Range, Dest As Range
Dim rg As Range
If Selection.Areas.Count <> 2 Then
MsgBox "Выделите 2 несмежных диапазона для объединения!"
Exit Sub
End If
Set Srs = Selection.Areas(1)
Set Srs1 = Selection.Areas(2)
Set Dest = Cells(Srs.Rows.Count + 1, Srs.Columns(1).Column)
Set rg = Application.InputBox _
("...", "Ввод начальной ячейки результата", , Type:=8)
Srs1.Copy Dest
Srs.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rg, Unique:=True
Range(Cells(Srs.Rows.Count + 1, Srs.Columns(1).Column), _
Cells(Srs.Rows.Count + Srs1.Rows.Count, Srs.Columns(1).Column + Srs.Columns.Count)).ClearContents
End Sub

Привет.
Все начинается с простого. Главное принцип понять.
И что, работает?

Друзья формулисты решили формулами. Интересует?