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

You're welcome, sintek. I figured out what the issue was by debugging.

When the For loop hits 1, the error occurs so I changed the code to exit the loop when I= 1

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

Thanks for all the help!