'copas kode ini di module
'======================================================================================================================
Sub Gabung(ByVal sumber1 As Range, ByVal sumber2 As Range, ByVal targetkolom As Integer, ByVal targetbaris As Integer)
    Dim s1 As Range
    Dim s2 As Range

    Set s1 = sumber1
    Set s2 = sumber2

    Set arr = CreateObject("System.Collections.ArrayList")

    'ambil nilai dari kolom pertama masukkan pada arraylist
    For Each c In s1
        arr.Add c.Value
    Next

    'ambil nilai dari kolom kedua, jika belum ada masukkan pada arraylist, jika sudah ada lewati
    For Each d In s2
        If Not arr.contains(d.Value) Then
            arr.Add d.Value
        End If
    Next

    'arraylist diurutkan dari A-Z
    arr.Sort

    'tulis hasilnya di kolom target
    For i = 0 To arr.Count - 1
        Cells(i + targetbaris, targetkolom).Value = arr(i)
    Next i

End Sub

'==================================================================================
'contoh cara penggunaan menggunakan command button di sheet1
'==================================================================================

Private Sub CommandButton1_Click()
    Call Gabung(Range("A3:A8"), Range("C3:C5"), 5, 3)
End Sub