Delete Unused Rows up to where Data is

[Guzzlr]

Hello All
Here's what I have...and it works. However

Option Explicit
Dim sht As Worksheet

Sub BurnDown_Tab()


Application.ScreenUpdating = True
Application.DisplayAlerts = False

    
'Create formulas for BurnDown Sheet
Sheets("BurnDown").Select
With Selection
    ActiveSheet.Range("P1").Formula = "=COUNTA(ECD!A:A)-1"
    ActiveSheet.Range("C2:C81").Formula = "=COUNTIF(ECD!H:H, 'BurnDown'!B2)"
End With

Range("A1").Select
'Selection.AutoFilter

Application.ScreenUpdating = False
Application.DisplayAlerts = True


End Sub

The problem here, is the code will display data to row 81 in column C, which is all zero's.
any row below the data set in column A can be deleted/cleared.
For example, If data in column A goes to row 13, then all data from row 14 to the bottom should be cleared.
Thanks for the help

 

[Fluff]

Glad you sorted it & thanks for the feedback.