Adding a Blank Row Every Nth Row in a Table

Here's an update to my formula.

Formula:

Private Sub btnsubmit_Click()



Dim TargetRow As Integer



TargetRow = Sheets("Engine").Range("C2").Value + 1



Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow, 0).Value = datebx

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow, 1).Value = atitledebbx

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow + 1, 1).Value = atitlecrebx

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow, 2).Value = reqbx

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow, 3).Value = reccodbx

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow, 15).Value = debamtbx

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow + 1, 16).Value = creamtbx



Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow, 6).ClearContents

Sheets("JOURNAL").Range("Data_Start").Offset(TargetRow + 1, 5).ClearContents



End Sub