Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Sub NewRecord()
Dim rg As Range
Application.ScreenUpdating = False
With Range("HeaderRow")
.Offset(1).EntireRow.Insert
.Offset(2).Copy .Offset(1)
On Error Resume Next
Set rg = .Offset(1).SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not rg Is Nothing Then rg.ClearContents
End With
Application.ScreenUpdating = True
End Sub
Sub asdgfasg()
With Range("startData")
.Offset(2).EntireRow.Insert
.Offset(1).EntireRow.Copy .Offset(2).EntireRow
On Error Resume Next
.Offset(1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
End With
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Open in new window
Thomas