Record a macro when you do this manually????

I modified my recorded code and got this:

Option Explicit
Sub testme01()

   Dim OldWks As Worksheet
   Dim NewWks As Worksheet
   Dim LastRow As Long
   Dim LastCol As Long
   Dim iCol As Long
   Dim Rng As Range
       
   Set OldWks = Worksheets("sheet1")
   OldWks.Copy _
       after:=OldWks
       
   Set NewWks = ActiveSheet
   
   With NewWks
       With .UsedRange
           .Copy
           .PasteSpecial Paste:=xlPasteValues
       End With
       
       LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
       LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
       
       Set Rng = Nothing
       On Error Resume Next
       Set Rng = .Range("B2", .Cells(LastRow, LastCol)) _
                           .Cells.SpecialCells(xlCellTypeConstants)
       On Error GoTo 0
       
       If Rng Is Nothing Then
           MsgBox "nothing to fix!"
           Exit Sub
       End If
       
       Rng.FormulaR1C1 = "=rc1"
       
       With .UsedRange
           .Copy
           .PasteSpecial Paste:=xlPasteValues
       End With
       
       Set Rng = Nothing
       On Error Resume Next
       Set Rng = .Range("b2", .Cells(LastRow, LastCol)) _
                   .Cells.SpecialCells(xlCellTypeBlanks)
       On Error GoTo 0
       
       If Rng Is Nothing Then
           'no rows to squish
       Else
           Rng.Delete shift:=xlShiftUp
       End If
       
       For iCol = LastCol To 2 Step -1
           If Application.CountA(.Range(.Cells(2, iCol), _
                                       .Cells(LastRow, iCol))) = 0 Then
               .Columns(iCol).Delete
           End If
       Next iCol
       
       .Columns(1).Delete
       
   End With
   
End Sub