Need a macro to copy 2 cells in an even numbered row to an odd numbered row

I have been trying to find or create a macro that will allow me to take information from Cells 80A and 80B and put them in 81A and 81B and then do that all the way down to 2624. I need to keep taking the information from the even numbered row in cells A & B and transfer it to the next row. All the even numbered rows have different information and I just want to copy that into the odd rows.
Example
Column A Column B
80 864 dog
81 864 dog
82 872 cat
83 872 cat

The above is what I want it to show. Please help me. Thanks.

hello shadowamc and welcome to the forums

you might like to try

Dim current_row As Long
Dim start_row As Long
Dim end_row As Long

start_row = 80
end_row = 2624

For current_row = start_row To end_row Step 2
    Cells(current_row + 1, 1) = Cells(current_row, 1)
    Cells(current_row + 1, 2) = Cells(current_row, 2)
Next current_row

jmac