...
Dim partitionForMergin(1) As Partition

                        If measureGroup.Partitions.Count > 1 Then
                            partitionEnumerator = measureGroup.Partitions.GetEnumerator()

                            Dim isMerginAble As Boolean
                            isMerginAble = False

                            If (partitionEnumerator.MoveNext()) Then
                                defaultPartition = CType(partitionEnumerator.Current, Partition)
                                isMerginAble = True
                            End If

                            If isMerginAble Then
                                partitionForMergin(0) = measureGroup.Partitions.FindByName(defaultPartition.Name + "_TMP")                               defaultPartition.Merge(partitionForMergin)

                                measureGroup.Refresh()
                            End If
                        End If