12-02-2020, 03:59 PM
VBA sample code to insert a new ro in excel and format the new row
Code reference : stackoverflow
Code reference : stackoverflow
Code:
Sub Insert_Blank_Rows()
Dim iRow As Long
Dim myText As String
myText = Range("E5").Text
With Selection
For iRow = .Rows.Count To 1 Step -1
.Rows(iRow + 1).EntireRow.Insert shift:=xlDown
With .Rows(iRow + 1)
.Range("A1:B1").Value = .Offset(-1).Range("A1:B1").Value
.Range("C1:D1").Value = Array("No Show", myText)
End With
Next
End With
End Sub
![[Image: Screenshot_2020-02-12%2BNew%2BThread%2Bi...%2BVBA.png]](https://1.bp.blogspot.com/-qwQAqWj76bA/XkQgz2JY6CI/AAAAAAAAAeY/KabVMhtGd28pB0aeAwg0dY-sUMVUrgULwCLcBGAsYHQ/s1600/Screenshot_2020-02-12%2BNew%2BThread%2Bin%2BExcel%2BVBA.png)