How to write VBA Code to copy Row data based on date criteria and condition

Hello Team,

I need your help here with VBA code to run macro when click the button.
Much appreciated if you can assist me again.

Since I'm new to VBA, I am unable to execute this code in the row I want it to run in, but I would like to run it for the next two rows as well, but I don't know how to apply logic to go to the next row. As I want to copy data three times for the same date. Below is the code that generates upon clicking the button.

Private Sub CommandButton1_Click()

Dim Rg As Range, copyRange As Range

Set Rg = Nothing

Set Rg = Me.UsedRange.Columns(1).Find(Application.Text(Date, [A16].NumberFormat), [A18], xlValues)

If Rg Is Nothing Then
MsgBox "Today's Date Not Found. Please check the 'Date Received'"
Else
Set copyRange = [B16:W16]
Rg.Offset(0, 1).Resize(1, copyRange.Columns.Count).Value2 = [B16:W16].Value2

End If

End Sub


I need to update data reading three times a day, Like morning, afternoon and evening.
so, I want to copy my reading data from the row where I am updating three times a day upon the button click “Copy today's data to the respective date. See the attached file herewith for more details

I hope I am able to explain my query as I am not a tech person but trying my best.

PS: info, i have post same question on Chandoo.org as well.

Thank you for your help.