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?

Occurrence Times	Frequency
12:00 AM	1
12:30 AM
1:00 AM
1:30 AM
2:00 AM
2:30 AM
3:00 AM	2
3:30 AM
4:00 AM	2
4:30 AM
5:00 AM
5:30 AM
6:00 AM
6:30 AM
7:00 AM
7:30 AM	1
8:00 AM	19
8:30 AM	26
9:00 AM	27
9:30 AM	37
10:00 AM	42
10:30 AM	64
11:00 AM	46
11:30 AM	44
12:00 PM	46
12:30 PM	44
1:00 PM	50
1:30 PM	44
2:00 PM	44
2:30 PM	36
3:00 PM	14
3:30 PM	10
4:00 PM	18
4:30 PM	23
5:00 PM	17
5:30 PM	26
6:00 PM	25
6:30 PM	27
7:00 PM	16
7:30 PM	7
8:00 PM	1
8:30 PM
9:00 PM
9:30 PM
10:00 PM
10:30 PM
11:00 PM
11:30 PM

<colgroup><col><col></colgroup><tbody>
</tbody>

 

[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