Sub Filltable()

Dim s As Worksheet
Dim hour As Integer

Set s = ThisWorkbook.ActiveSheet

For hour = 0 To 23
s.Cells(hour + 1, 1).Value = hour
If hour >= 9 And hour <= 15 Then
s.Cells(hour + 1, 2).Value = 1000
Else
s.Cells(hour + 1, 2).Value = 0
End If

Next hour

End Sub