Of zo:
Sub dotch()
Dim fRow As Long, iRow As Long
fRow = 2
Rows(fRow).Insert Shift:=xlDown
iRow = fRow
With Sheets("Updates")
Cells(iRow, 1).Resize(, 31).Value = Array(.[A1], .[B2], .[B5], .[B6], .[B3], .[B8], .[B7], .[B9], .[B10], .[B12], .[B11], .[B13], .[B14], _
.[B15], .[B16], .[B17], .[B18], .[B19], .[B20], .[B21], .[B22], .[B24], .[B23], .[B32], .[B31], .[B31], .[B30], .[B29], .[B28], .[B27], .[B26], .[B25])
Rows(fRow).Insert Shift:=xlDown
iRow = fRow
Cells(iRow, 1).Resize(, 31).Value = Array(.[A1], .[C2], .[C5], .[C6], .[C3], .[C8], .[C7], .[C9], .[C10], .[C12], .[C11], .[C13], .[C14], _
.[C15], .[C16], .[C17], .[C18], .[C19], .[C20], .[C21], .[C22], .[C24], .[C23], .[C32], .[C31], .[C31], .[C30], .[C29], .[C28], .[C27], .[C26], .[C25])
End With
End Sub