Highlight entire row based on nonempty cell

Maybe:

Sub surePac()
With Sheets("Sheet1")
For Each MyCell In ActiveWorkbook.Worksheets("Sheet").Range(.Cells(2, 1), .Cells(lr, 1))
    If MyCell.Value <> "" Then
    
       Rows(MyCell.Row).Interior.color = vbYellow
        
        If MyCell.offset(, 1) <> "" Then
            
            Rows(MyCell.Row).Interior.color = vbRed
            
        End If
   
    End If
Next
End With
End Sub