Why is my formula not working for the subtotal?

[Jenaustin29]

Selection.EntireRow.Delete
Worksheets("SalesComparison").Range("DC2") = WorksheetFunction.Subtotal(9, Range("dc4:dc" & Rows(Rows.Count).End(xlUp).Row))
Worksheets("SalesComparison").Range("Dd2") = WorksheetFunction.Subtotal(9, Range("dd4:dd" & Rows(Rows.Count).End(xlUp).Row))
Worksheets("SalesComparison").Range("Li2") = WorksheetFunction.Subtotal(9, Range("LI4:LI" & Rows(Rows.Count).End(xlUp).Row))
Worksheets("SalesComparison").Range("LJ2") = WorksheetFunction.Subtotal(9, Range("LJ4:LJ" & Rows(Rows.Count).End(xlUp).Row))


It gives me to sum just not using the subtotal function where when I filter it changes the total

 

[pitchoute]

Selection.EntireRow.Delete

Dim lastRow As Long

With Worksheets("SalesComparison")
    lastRow = .Cells(.Rows.Count, "DC").End(xlUp).Row
    
    .Range("DC2").Formula = "=SUBTOTAL(9, DC4:DC" & lastRow & ")"
    .Range("DD2").Formula = "=SUBTOTAL(9, DD4:DD" & lastRow & ")"
    .Range("LI2").Formula = "=SUBTOTAL(9, LI4:LI" & lastRow & ")"
    .Range("LJ2").Formula = "=SUBTOTAL(9, LJ4:LJ" & lastRow & ")"
End With

 

[Jenaustin29]

Thank you!