Clear Contents for a changing range based on a cells' value

[jpj31]

I've got another macro that is inserting a range of values into this example template and right now it's filling down the formulas from row 6. I need a code that's either going to clear the contents for A:E and L:IL of a row, if there's not a value in F:K of a row. From 5 rows above "TOTALS" in column P. Or a code that copies the formulas from N16:IL16.

I've tried the following:
Sub Paste_Formulas()
'
' Paste_Formulas Macro
Dim totalrow As Long
Dim lc As Range
Dim ws As Worksheet

Set ws = Worksheets("BUILDING CONC")
Set lc = [P:P].Find(What:="End", After:=[P19], LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious)

If Not lc Is Nothing Then totalrow = lc.Row
ws.Range("N16:IL16").Copy
ws.Range("N19:IL" & totalrow).PasteSpecial xlPasteAll

But it doesn't appear to be working. Any suggestions or help would be greatly appreciated.

 

[sijpie]

To copy the formulas, don't use copy paste. It is slow and unwieldy. Just set the formulas for the range.

    ws.Range("N19:IL" & totalrow).Formula = ws.Range("N16:IL16").Formula

 

[jpj31]

To copy the formulas, don't use copy paste. It is slow and unwieldy. Just set the formulas for the range.

    ws.Range("N19:IL" & totalrow).Formula = ws.Range("N16:IL16").Formula

Thank you for responding!

I had adapted it to "Filldown" and then "ClearContents" to delete formulas I didn't want. Would your method be any faster? I'm still learning.

 

[sijpie]

I would need to test it to see which is faster. Filldown is beter than copy paste anyway. Clearcontents is fast