VBA Loop cut/paste/skip

Very new to VBA and macros. Looking to build a macro that will cut the items in G2:H2, paste them in I2:J2, skip to the next even numbered row, cut those items (G4:H4), paste those into I4:J4, and so-on until the end of the spreadsheet. The spreadsheet has roughly 11200 rows to sort through. Any help is GREATLY appreciated!

Code below:

```
Sub TotalMove()
'
' TotalMove Macro

a = 2
g = Sheet17.Cells(Rows.Count, "A").End(xlUp).Row

For a = 2 To g Step 2

Range("G2:H2").Select
Selection.Cut
Range("I2:J2").Select
ActiveSheet.Paste

Next a

End Sub
```

@Mumps1 - This is perfect, thank you!

I am still trying to learn more VBA. Would you mind providing an explanation to the code? I have never seen the "Application.ScreenUpdating" code before.