Macro Generate Numbers in Sequential Order

Change

        .Resize(num + 1).Locked = True

to

        With .Resize(num + 1, 2)
            .Columns(2).Value = Date
            .Locked = True
        End With