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

[azumi]

Assumed your data on A1 and down, put this on B1 and copied down:

=A1&" Of "&COUNTIF($A$1:A1,A1)