VBA: Copy data from every other row, paste it in previous row, delete copied row

Something like this...

Option Explicit
Sub JohnJames()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -2
    Range("B" & i & ":G" & i).Copy Range("B" & i - 1)
    Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub