Sub f_sad()

 Dim LastCol As Integer, LastRow As Integer, LastColInRow As Integer, LastColForCop As Integer
      
  LastCol = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
  LastRow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
  
   Range(Cells( 1 ,  3 ), Cells( 1 , LastCol)).EntireColumn.Insert
   
   
   For x =  1  To LastRow
   
    LastColInRow = Cells(x, Columns.Count).End(xlToLeft).Column
    
    LastColForCop = LastColInRow - LastCol +  2 
 
      For y =  3  To LastColForCop
       
       Cells(x, y).Value = Cells(x, LastColInRow - y +  3 ).Value
     
      Next
      
   Next
  
  Range(Cells( 1 , LastCol +  1 ), Cells( 1 , LastCol *  2  -  2 )).EntireColumn.Delete
      
End Sub