The only line I think you may need to change will be
For J = intStart + 1 To intStart + intDuration
Which becomes
For J = intStart + 2 To intStart + intDuration + 2
This is to allow the two blank columns.
No need to worry about blank lines. If they are there it will skip them
anyhow.