Help! combining 2 VBA codes

How do I combined these 2 codes into one VBA code?

The first code is a recorded macro

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("A:A").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

The second code is

Sub deleteBlank()
    Dim Lastrow As Integer
    
    Lastrow = Range("B" & Rows.Count).End(xlUp).Row
    
    Range("C2:BC" & Lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

maybe You can use call method

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:D").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("A:A").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Call deleteBlank
End Sub
Sub deleteBlank()
    Dim Lastrow As Integer
    
    Lastrow = Range("B" & Rows.Count).End(xlUp).Row
    
    Range("C2:BC" & Lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Hi
Could You send the sample file with description what You want achieve

attached are 2 excel files.

start.xlxs refers to the original file before applying the code

result.xlxs will be the end result after applying the code. I had to run 2 codes separately.

try to use this
If You have a lot of data it could take a moment

Sub aa()
Dim Lastrow As Long
Dim c As Long
Dim x As Range

Columns("G:H").Delete
Columns("D:E").Delete
Columns("B").Delete
    Lastrow = Range("C" & Rows.Count).End(xlUp).Row
    For c = Lastrow To 1 Step -1
    If IsEmpty(Cells(c, 3)) And IsEmpty(Cells(c, 3).Offset(0, -1)) Then
    Cells(c, 3).EntireRow.Delete
    End If
    Next
    Range("c2").Delete
    Call emptyrow
    For Each x In Range("c3:c" & Lastrow)
    If Not IsEmpty(x) Then
        x.Offset(0, -1) = x.Offset(-1, -1)
        x.Offset(0, -2) = x.Offset(-1, -2)
        End If
        Next
       
End Sub
Sub emptyrow()
  Dim ost As Long
  Dim i As Long
  Dim z As Integer

  ost = ActiveSheet.Cells.Find(what:="*", after:=Cells(1, 1), _
          searchdirection:=xlPrevious).Row

  For i = ost To 1 Step -1

    On Error Resume Next

    With ActiveSheet.Rows(i)

      z = .Find(what:="*", _
                 after:=.Parent.Cells(i, 1), _
                 searchdirection:=xlPrevious).Column

      If Err.Number <> 0 Then .Delete

    End With
    On Error GoTo 0
  Next i

End Sub

Hi..the code was almost perfect but some issues

1. If cell in column C is empty, corresponding columns A and B should also be deleted.
2. empty cell in column A should copy the cell above it.

please check attachment

^^ hi..see 2 issues on my prior post

this conditions should be met:

Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("A:A").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("B:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Range("C2:BC" & Lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Hi
I am uploading new file because in the previous one was mistake (the results are the same You wanted in your file call "results")

p.s. I do not follow your last post....