select case multiple conditions

hey everyone Im new to vba and creating a code to autofill some financial info, I would like to evaluate the cells in column 4, for a txt, then look in column 5 only for this example for an exact amount, ex"653" then place the specified answer in column 8. here is an example of my code I have so far it is working well just don't know how to evaluate the second condition, the line im having issues with is the last Select case, TD MORTGAGE
Dim finalrow As Integer
finalrow = Cells(Rows.Count, 4).End(xlUp).Row
For i = 48 To finalrow
Select Case Cells(i, 4).Value
Case "Great-West Life PAY"
Cells(i, 8).Value = "GWL PAY"
Cells(i, 8).Interior.Color = 65535
Case "MAIL DEPOSIT"
Cells(i, 8).Value = "RENT PAYMENTS"
Cells(i, 8).Interior.Color = 65535
Case "EECOL ELECTRIC"
Cells(i, 8).Value = "WORK RELATED"
Cells(i, 8).Interior.Color = 65535
Case "AVIVA INS"
Cells(i, 8).Value = "Insurance Auto"
Cells(i, 8).Interior.Color = 65535
Case "TD MORTGAGE", Cells(i, 5) = 653
Cells(i, 8).Value = "mortgage Rockyford"
Cells(i, 8).Interior.Color = 65535
End Select
Next i
MsgBox ("newly added info has been automaticly updated and highlighted yellow")
End Sub

ah jesus I lost all my indents

sorry my issue is that I have two separate "TD MORTGAGE' values in column 4, in column 5 they are both different values, based on the values id like to generate different values in column 8

sorry my bad, would you like me to re post, or is what you provided my solution

If I got your request then try the following instead of using Select Case

Sub Test()
    Dim FinalRow As Integer, I As Long
    FinalRow = Cells(Rows.Count, 4).End(xlUp).Row
    
    For I = 48 To FinalRow
        If Cells(I, 4) <> "" Then
            If Cells(I, 4).Value = "Great-West Life PAY" Then
                Cells(I, 8).Value = "GWL PAY"
                Cells(I, 8).Interior.Color = 65535
            ElseIf Cells(I, 4).Value = "MAIL DEPOSIT" Then
                Cells(I, 8).Value = "RENT PAYMENTS"
                Cells(I, 8).Interior.Color = 65535
            ElseIf Cells(I, 4).Value = "EECOL ELECTRIC" Then
                Cells(I, 8).Value = "RENT PAYMENTS"
                Cells(I, 8).Interior.Color = 65535
            ElseIf Cells(I, 4).Value = "AVIVA INS" Then
                Cells(I, 8).Value = "Insurance Auto"
                Cells(I, 8).Interior.Color = 65535
            ElseIf Cells(I, 4).Value = "TD MORTGAGE" Or Cells(I, 5).Value = 653 Then
                Cells(I, 8).Value = "mortgage Rockyford"
                Cells(I, 8).Interior.Color = 65535
            End If
            
        End If
    Next I
    MsgBox ("newly added info has been automaticly updated and highlighted yellow")
End Sub

what is the main difference between the two as the new code is working great?, thank you very much

Hi Sparky
As for select case deal with test expression which is Cells(I, 4).Value only
But using If is sometimes more flexible ..
May be some guys can tell us how to use Select Case with the opreator OR !

Generally it's solved so mark your thread as solved