Macro By Click to clear all data in a specific row except formulas

[mostafaelkady98]

Hi all, I am new to VBA macros
I am trying to create a macro that adds a row at the end of specific rows while clearing the values and keeping the formulas.

Sub RectangleAddRow_Click()

With Worksheets("Lintel Calculation")

.Range("TotalLintelVolume").Offset(-2).EntireRow.Copy
.Range("TotalLintelVolume").Offset(-1).EntireRow.Insert Shift:=xlShiftDown
On Error Resume Next
.Range("TotalLintelVolume").Offset(-2).SpecialCells(xlCellTypeConstants).Value = ""
Application.CutCopyMode = False
On Error GoTo 0

End With

End Sub

but when I click it clears all cells in my sheet, not the specified row only
Thanks a lot, best regards

 

[mostafaelkady98]

when I press "Add type" it should Add a new Row at Row 13 and clear all the content of row 13 only (but it clears all the sheet data)

 

[mostafaelkady98]

I found the solution the code should be as follows

Sub RectangleAddRow_Click()

With Worksheets("Lintel Calculation")

.Range("TotalLintelVolume").Offset(-2).EntireRow.Copy
.Range("TotalLintelVolume").Offset(-1).EntireRow.Insert Shift:=xlShiftDown
On Error Resume Next
.Range("TotalLintelVolume").Offset(-2).EntireRow.SpecialCells(xlCellTypeConstants).Value = ""
Application.CutCopyMode = False
On Error GoTo 0

End With

End Sub

The problem was that I didn't specify the row "EntireRow"