Sub Myhello()
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1).Value = "BEGIN" Then Cells(k + 1, 3) = Cells(k + 2, 1): Cells(k + 2, 1).Cut Cells(k + 1, 3): Cells(k + 1, 4) = Cells(k + 2, 2): Cells(k + 2, 2).Cut Cells(k + 1, 4)
Next
End Sub
Sub Myhello()
Dim k As Integer
For k = 1 To 1236
If Cells(k, 1).Value = "BEGIN" Then Cells(k + 1, 3) = Cells(k + 2, 1): Cells(k + 2, 1).Cut Cells(k + 1, 3): Cells(k + 1, 4) = Cells(k + 2, 2): Cells(k + 2, 2).Cut Cells(k + 1, 4)
Next
End Sub