Speed up code, possibly with arrays

[dpaton05]

Is there a way to speed up this code, possibly with arrays or something else?

Sub cmdDeleteAllQuoteLines()
    'Deleting The Data In A Table
    Dim tbl As ListObject
    Dim cell As Range
    
    Set tbl = Sheets("CSS_quote_sheet").ListObjects("CSS_quote")
    'Delete all table rows except first row
    With tbl.DataBodyRange
        If .Rows.Count > 1 Then
            .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete

        End If
        'Clear the contents, but not delete the formulas
        For Each cell In tbl.ListRows(1).Range.Cells
            If Not cell.HasFormula Then
                cell.Value = ""
            End If
        Next
    End With
    Call InsertFormulas
    
    'ListObjects("CSS_quote").ListColumns("10%Increase").DataBodyRange.Value = "1"
End Sub

 

[MARK858]

You don't need an array for the above, you can just use

.SpecialCells(xlCellTypeConstants) = ""

rather than looping through your cells using

.HasFormula

 

[dpaton05]

How do I insert it into the code, I can't seem to make it work?

 

[dpaton05]

I worked it out

 

[dpaton05]

Thanks for the code