cut & paste cells to new destination not working right

[Veroshima]

Forgive me if this code looks wonky. I pieced it together knowing very little about coding. What I want it to do is cut all cells with a value greater than 300 from cell range "B2:B71", and then paste those cells into column "I". It pastes them over, but is failing to paste the first cell that meets the value requirement. I think this may be because I have a header in I1. Help?

Dim sourceRng As Range
Dim cell As Range
Dim i As Long
Set sourceRng = ActiveSheet.Range("B2:B71")
i = 1
For Each cell In sourceRng
If cell.Value > 300 Then
cell.Resize(1, 2).Cut Destination:=Range("I" & i)
i = i + 1

TIA