Macro for deleting last row in all sheets except 3 sheets

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