Geração de datas

[Gabriel Macedo 0]

Olá! Sou novo no VBA e necessito de ajuda. Preciso gerar datas e horas. A cada data, é necessário repeti-la  24 vezes, que é para equivaler às 24 horas do dia, Ex.:
23/04/2020 00:00, 23/04/2020 01:00,..., 23/04/2020 23:00. Grato pelo retorno.

[Alyson Ronnan Martins 0]

Public Sub MostrarHoras()
Dim dtCurrent As Double
Dim hrAdd As Double

dtCurrent = Sheets("Planilha1").Cells(1, "A").Value

'Iniciar o loop:
For x = 0 To 23 Step 1
    'Escrever na coluna C:
    Sheets("Planilha1").Cells(1 + x, "C").Value = dtCurrent + TimeValue(x & ":00:00")
Next x

End Sub