Copy 2 rows once found a different value

I would like to copy the values from A to D: (2 rows of values per date) to another sheet

For example copy the values A2: D2, A6: D6, A7: D7, A13: D13 ....

I'm new to programming. I managed to find when the date changed, but then I got stuck.

Dim i As Integer

celda1 = 0

For i = 2 To 29
    If Cells(i, 1).Value <> celda1 Then
    celda1 = Cells(i, 1)

    End If

Next i

It is for a database of more than 3000 items at work