is there any macro that can move my object next to the the previous object like mentioned in the video?

Sub mate_HLeft_VTop()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.BottomY = sReference.TopY
        s.RightX = sReference.LeftX
    Next s
End Sub

Sub mate_HCenter_VTop()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.BottomY = sReference.TopY
        s.CenterX = sReference.CenterX
    Next s
End Sub

Sub mate_HRight_VTop()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.BottomY = sReference.TopY
        s.LeftX = sReference.RightX
    Next s
End Sub

Sub mate_HLeft_VCenter()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.CenterY = sReference.CenterY
        s.RightX = sReference.LeftX
    Next s
End Sub

Sub mate_HRight_VCenter()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.CenterY = sReference.CenterY
        s.LeftX = sReference.RightX
    Next s
End Sub

Sub mate_HLeft_VBottom()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.TopY = sReference.BottomY
        s.RightX = sReference.LeftX
    Next s
End Sub

Sub mate_HCenter_VBottom()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.TopY = sReference.BottomY
        s.CenterX = sReference.CenterX
    Next s
End Sub

Sub mate_HRight_VBottom()

Dim sr As ShapeRange
Dim sReference As Shape
Dim s As Shape
    
    Set sr = ActiveSelectionRange
    Set sReference = sr(1)
    sr.Remove sr.IndexOf(sReference)
    
    For Each s In sr
        s.TopY = sReference.BottomY
        s.LeftX = sReference.RightX
    Next s
End Sub