Sub Find_Specific_String()
Dim varFound As Variant, varSearch As Variant
Dim strAddress As String, intPos As Integer
Dim i As Long
varSearch = "Total Revenue and Other Income"
Set varFound = Cells.Find(varSearch, LookIn:=xlValues, LookAt:=xlPart)

If Not varFound Is Nothing Then
    With varFound
    intPos = InStr(intPos + 1, .Value, varSearch, vbTextCompare)
        If intPos Then
            .Characters(Start:=intPos, Length:=Len(varSearch)).Font.FontStyle = "Bold"
            For i = 1 To 4 '' this will only loop  4 columns
                If Cells(varFound.Row, 2).Text <> "" Then
                With Cells(varFound.Row, 2).Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = 1
                End With
                End If
            Next i
        End If
    End With
End If
End Sub