repeating one number

[snb]

or

Sub M_snb()
    [A1].Resize(24 * 31).Name = "snb_002"
    [Snb_002] = [index(int((row(snb_002)-1)/24)+1,)]
End Sub