Oh no! Where's the JavaScript?
Your Web browser does not have JavaScript enabled or does not support JavaScript. Please enable JavaScript on your Web browser to properly view this Web site, or upgrade to a Web browser that does support JavaScript.

Excel VBA - insert blank row and format it

Excel VBA - insert blank row and format it

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
End With

End Sub

caa October 25 2023 128 reads 0 comments Print


Leave a Comment

Please Login to Post a Comment.
  • No Comments have been Posted.

Sign In
Not a member yet? Click here to register.
Forgot Password?