Do while loop not working

Macro below

It should just ask the user if they want to enter another set of data and skip down to the next row and then ask them again

Sub TestMacro()
Dim question As String

question = InputBox("Add another?")

If question = "N" Or question = "Y" Then
    Do While question = "Y"

    ActiveCell.Offset(0, 0).Select
    ActiveCell.FormulaR1C1 = InputBox("Date")
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = InputBox("Project #")
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = InputBox("Fault")
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = InputBox("Problem")
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = InputBox("Solution")
    ActiveCell.Offset(1, -4).Select
    
    question = InputBox("Add another?")
    
    Loop
    
    MsgBox "OK"
    
End If

End Sub