Leaving a blank row

[dotchieJack]

Hello,
How can i adjust this code

Private Sub CommandButton4_Click()
  With ActiveSheet.Cells(Rows.Count, 3).End(xlUp)
  .Offset(1).Resize(7) = Application.Transpose(Array(TextBox20, TextBox30, TextBox31, TextBox21, TextBox25, TextBox28, TextBox23))
  .Offset(1).Resize(7).Font.Bold = True
  .Offset(1, 5).Resize(7) = Application.Transpose(Array(1 * TextBox12, 1 * TextBox29, 1 * TextBox32, 1 * TextBox22, 1 * TextBox26, 1 * TextBox27, 1 * TextBox24))
  .Offset(7, 5).Font.Underline = xlUnderlineStyleSingle
  End With
End Sub

so that is leaves a blank row first
something like this

iRow = ws.Cells(Rows.Count, 3) _
  .End(xlUp).Offset(1, 0).Row + 1

thanks in advance

 

[chirayu]

Please provide a sample file & explanation within as to where the blank row needs to be.

To insert a blank row the code - if you have already selected where it needs to be added - would be something like

ActiveCell.EntireRow.Insert Shift:=xlDown

 

[dotchieJack]

Thank you for your reply
Problem solved