Объединения одинаковых значений и вставка строки

Sub JoinDoubles()
Dim i As Long
Dim j As Long
Application.DisplayAlerts = False
For j = 1 To Selection.Columns.Count
  For i = Selection.Rows.Count To 2 Step -1
    If Selection.Cells(i - 1, j) = Selection.Cells(i, j) Then
    Range(Selection.Cells(i - 1, j), Selection.Cells(i, j)).Merge
    End If
  Next
Next
Selection.VerticalAlignment = xlVAlignCenter
Application.DisplayAlerts = True
End Sub

Sub VstavkaStrok1()
Dim i As Long
Dim pustroka As Long
For i = Selection.Rows.Count To 2 Step -1
  If Selection(i, 1).MergeArea.Rows.Count <> 1 Then
  pustroka = Selection(i, 1).Row + 1
  ActiveSheet.Rows(pustroka).Insert xlShiftDown
  ActiveSheet.Rows(pustroka).RowHeight = 7
  ActiveSheet.Rows(pustroka).Borders(xlInsideVertical). _
  LineStyle = xlLineStyleNone
  ActiveSheet.Rows(pustroka).Borders(xlEdgeLeft). _
  LineStyle = xlLineStyleNone
  ActiveSheet.Rows(pustroka).Borders(xlEdgeRight). _
  LineStyle = xlLineStyleNone
  ActiveSheet.Rows(pustroka).Interior. _
  ColorIndex = xlColorIndexNone
  i = i - Selection(i, 1).MergeArea.Rows.Count + 1
  End If
Next
End Sub

Sub JoinDoubles(Rg As Range)
Dim i As Long
Dim j As Long
Application.DisplayAlerts = False
With Rg
  For j = 1 To .Columns.Count
    For i = .Rows.Count To 2 Step -1
      If .Cells(i - 1, j) = .Cells(i, j) Then
      Range(.Cells(i - 1, j), .Cells(i, j)).Merge
      End If
    Next
  Next
  .VerticalAlignment = xlVAlignCenter
End With
Application.DisplayAlerts = True
End Sub
Sub proba()
Call JoinDoubles(Range("A3:B11"))
End Sub

Private Sub CommandButton2_Click()
Call proba
    End
End Sub