how do i merge two macro into one ?

[iffi]

Plz i want to merge below two macros into one macro code, so whenever i run that macro, both works together. Thanks

Sub Delete_Rows()
Dim i As Long
Application.ScreenUpdating = False
With ActiveSheet
    For i = 100 To 1 Step -1
        If .Cells(i, 6) = "" Or .Cells(i, 5) = "TOTAL" Then .Cells(i, 1).EntireRow.Delete
    Next i
End With
Application.ScreenUpdating = True
End Sub

Sub ConvertToNumber()

Dim LR As Long

    LR = cells(rows.Count, 2).end(xlup).Row

    Range ("C2:C" & LR).TextToColumns

End Sub

 

[VoG]

Try

Sub Delete_Convert()
Dim i As Long
Dim LR As Long
Application.ScreenUpdating = False
With ActiveSheet
    For i = 100 To 1 Step -1
        If .Cells(i, 6) = "" Or .Cells(i, 5) = "TOTAL" Then .Cells(i, 1).EntireRow.Delete
    Next i
    LR = .Cells(Rows.Count, 2).End(xlUp).Row
    .Range("C2:C" & LR).TextToColumns
End With
Application.ScreenUpdating = True
End Sub

 

[iffi]

Great, Thanks, working perfectly fine.

 

[iffi]

the below code (convert text to number) is working fine for the column C only, i want to extend the range from C2 to H100 in this below code, i tried myself to edit it but failed to do so, now asking here for this, plz amend it. Thanks

Sub ConvertToNumber()

Dim LR As Long

    LR = cells(rows.Count, 2).end(xlup).Row

    Range ("C2:C" & LR).TextToColumns

End Sub

 

[VoG]

Try

Sub ConvertToNumber()

Dim LR As Long, i As Long

LR = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To 8

    Range(Cells(1, i), Cells(LR, i)).TextToColumns
Next i
End Sub

 

[Rick Rothstein]

the below code (convert text to number) is working fine for the column C only, i want to extend the range from C2 to H100 in this below code, i tried myself to edit it but failed to do so, now asking here for this, plz amend it. Thanks

Sub ConvertToNumber()
 
Dim LR As Long
 
    LR = cells(rows.Count, 2).end(xlup).Row
 
    Range ("C2:C" & LR).TextToColumns
 
End Sub

Here is a different approach that may work for you...

Sub ConvertToNumber()
  With Columns("C:H")
    .NumberFormat = "General"
    .Value = .Value
  End With
End Sub