Thanks both, just knocked up some shonky VBA that works
Dim tid, startValue, endValue As Integer
Dim inputRows, currentRow, nextRow As Long
Sub TidGenerate()
inputRows = Worksheets(“Sheet1”).Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For currentRow = 1 To inputRows
startValue = Worksheets(“Sheet1”).Cells(currentRow, 1).Value
endValue = Worksheets(“Sheet1”).Cells(currentRow, 2).Value
For tid = startValue To endValue
nextRow = Worksheets(“Output”).Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Worksheets(“Output”).Cells(nextRow, 1).Value = tid
Next tid
Next currentRow
End Sub