STOP PRINTING IF CELL is BLANK E.G B2 is blank then stop printing

PLease assist i have below code and want if one cell B2 is blank them stop printing

Dim I As Integer
Dim B As Integer
    Range("B5").Select
    B = ActiveCell.FormulaR1C1
    Range("C10").Select
    I = 1
    Do While I <= B
    Range("B10").Select
    ActiveCell.FormulaR1C1 = I
    Sheets("Print").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Data Entry").Select
    I = I + 1
    Loop
    End Sub