Macro for deleting last row in all sheets except 3 sheets

sir i have a workbook
with around 25- 30 sheets

now i want a macro

to delete last row of all sheets except 3 sheets with name
"DATA" , " TRI" and "STOCKTEMP"
in all remaing sheets check the value in "A" column last cell and delete the entire row

thank you in advance
harish

Try

Sub test()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        Select Case .Name
            Case "DATA", " TRI", "STOCKTEMP"
            Case Else
                .Range("A" & Rows.Count).End(xlUp).EntireRow.Delete
        End Select
    End With
Next ws
End Sub

sir one more requset for the same file

need to delete all rows seeing first empty cell in "D" column after D40 cell

to delete rows of all sheets except 3 sheets with name
"DATA" , " TRI" and "STOCKTEMP"
in all remaing sheets
sorry for distubing again when i was working with my file i was facing problem with this
so late reply

thank you

harish

Sub deleleall3()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
      With ws
        If .Name <> "DATA" And .Name <> "TRI" And .Name <> "STOCKTEMP" Then
           .Range("A1", .Cells.SpecialCells(11)).EntireRow.Delete
        End If
      End With
    Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

excellent sir
thank you for fast reply with answer

harish