How to move data from right side to left side, please check the attachment

Try

Sub test()
    On Error Resume Next
    With Range("a1", Cells.SpecialCells(11))
        .SpecialCells(4).Delete xlShiftToLeft
        .Columns(1).SpecialCells(4).EntireRow.Delete
        .CurrentRegion.Borders.Weight = 2
    End With
    On Error GoTo 0
End Sub