Emparelhar números iguais de colunas adjacentes

Bom dia!!
o código abaixo alinha os números que são iguais, considerando colunas A e B.
Antes
1 16
2 17
3 18
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Depois
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 16
17 17
18 18
19
20
21
22
23
24

Código:

Sub Alinhar_Numeros()
'Posiciona os números iguais (um do lado do outro) entre a coluna A e B
    Dim rng1 As Range
    Set rng1 = Range([A1], Cells(Rows.Count, "A").End(xlUp))
    rng1.Offset(0, 1).Columns.Insert
    With rng1.Offset(0, 1)
        .FormulaR1C1 = _
        "=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
        .Value = .Value
    End With
    Columns(3).Delete
End Sub

Att