Advancing Numbers in Cells by One, Quickly

[Nonprof]

Hi folks,

I am not sure if I am explaining this right, but here it is...

I have a table, see below. I am tracking the frequencies of specific events by time of day.

Sometimes, I have dozens of datasheets where ALL the times were selected, so I end up manually advancing many of these times or all of them, over and over and over. Quite a drag.

So, I am looking for help with a macro that will automatically advance all frequencies in the table by one, ignoring blank cells.
Being able to advance a 'selection' of times' with the push of a button would be great, too.

Anybody interested and able to help?

[TABLE="width: 209"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD] Occurrence Times[/TD]
[TD]Frequency[/TD]
[/TR]
[TR]
[TD]12:00 AM[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]12:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1:00 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]2:00 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]2:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]3:00 AM[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]3:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]4:00 AM[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]4:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]5:00 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]5:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]6:00 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]6:30 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]7:00 AM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]7:30 AM[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]8:00 AM[/TD]
[TD]19[/TD]
[/TR]
[TR]
[TD]8:30 AM[/TD]
[TD]26[/TD]
[/TR]
[TR]
[TD]9:00 AM[/TD]
[TD]27[/TD]
[/TR]
[TR]
[TD]9:30 AM[/TD]
[TD]37[/TD]
[/TR]
[TR]
[TD]10:00 AM[/TD]
[TD]42[/TD]
[/TR]
[TR]
[TD]10:30 AM[/TD]
[TD]64[/TD]
[/TR]
[TR]
[TD]11:00 AM[/TD]
[TD]46[/TD]
[/TR]
[TR]
[TD]11:30 AM[/TD]
[TD]44[/TD]
[/TR]
[TR]
[TD]12:00 PM[/TD]
[TD]46[/TD]
[/TR]
[TR]
[TD]12:30 PM[/TD]
[TD]44[/TD]
[/TR]
[TR]
[TD]1:00 PM[/TD]
[TD]50[/TD]
[/TR]
[TR]
[TD]1:30 PM[/TD]
[TD]44[/TD]
[/TR]
[TR]
[TD]2:00 PM[/TD]
[TD]44[/TD]
[/TR]
[TR]
[TD]2:30 PM[/TD]
[TD]36[/TD]
[/TR]
[TR]
[TD]3:00 PM[/TD]
[TD]14[/TD]
[/TR]
[TR]
[TD]3:30 PM[/TD]
[TD]10[/TD]
[/TR]
[TR]
[TD]4:00 PM[/TD]
[TD]18[/TD]
[/TR]
[TR]
[TD]4:30 PM[/TD]
[TD]23[/TD]
[/TR]
[TR]
[TD]5:00 PM[/TD]
[TD]17[/TD]
[/TR]
[TR]
[TD]5:30 PM[/TD]
[TD]26[/TD]
[/TR]
[TR]
[TD]6:00 PM[/TD]
[TD]25[/TD]
[/TR]
[TR]
[TD]6:30 PM[/TD]
[TD]27[/TD]
[/TR]
[TR]
[TD]7:00 PM[/TD]
[TD]16[/TD]
[/TR]
[TR]
[TD]7:30 PM[/TD]
[TD]7[/TD]
[/TR]
[TR]
[TD]8:00 PM[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]8:30 PM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]9:00 PM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]9:30 PM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]10:00 PM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]10:30 PM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]11:00 PM[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]11:30 PM[/TD]
[TD] [/TD]
[/TR]
</tbody>[/TABLE]

 

[MARK858]

For the frequencies and assuming that they are all constants and not formulas try...

Sub AddOne()
    Dim rngTmp As Range, rngTrg As Range
    Application.ScreenUpdating = False
    
    Set rngTmp = Range("Z1")
    Set rngTrg = Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(2, 1)

    rngTmp.Value = 1
    rngTmp.Copy
    rngTrg.PasteSpecial , xlPasteSpecialOperationAdd
    rngTmp.ClearContents
    
    Application.ScreenUpdating = True
End Sub