Sub ConvertsFontStyletoBold() 
     
    Dim Count As Integer 
    Dim Count1 As Integer 
    Dim nr1 As Range 
    Dim nr2 As Range 
    Dim nr3 As Range 
    Dim nr4 As Range 
    Dim nr5 As Range 
    Dim nr6 As Range 
    Dim nr7 As Range 
    Dim nr8 As Range 
     
     
    Set nr1 = Range("A65536").End(xlUp) 
    nr1.Select 
    Set nr2 = Range("a1").End(xlToRight) 
    nr2.Select 
    Count = Range("A1", nr2).Columns.Count - 1 
    Set nr3 = Range("A1", nr1.Offset(0, Count)) 
    nr3.Name = "Data" 
    nr3.Select 
    Set nr4 = Range("B65536").End(xlUp) 
    nr4.Select 
    Set nr5 = Range("B7", nr4) 
    nr5.Select 
    Set nr6 = Range("D7").End(xlToRight) 
    nr6.Select 
    Set nr7 = Range("D65536").End(xlUp) 
    nr7.Select 
    Count = Range("D7", nr6).Columns.Count - 1 
    Set nr8 = Range("D7", nr7.Offset(0, Count)) 
    nr8.Name = "Values" 
    nr8.Select 
     
    For Each r In nr8.Rows 
        i = r.Row 
        r.Select 
        If IsNumeric(Cells(r)) = True And r.xlCellValue > nr5.xlCellValue = True Then 
            cell.Font.Bold = True 
        End If 
         
    Next r 
     
End Sub