vba - 除外して複数のシートでマクロを実行する

Question

ワークブック内の複数のデータ シートでこのマクロを実行しようとしていますが、ワークブック全体でコードを正しく実行できません。単一のシートでマクロを実行すると正常に動作しますが、現在すべてのシートを実行して「DATA」シートと「UPDATE」シートを除外しようとしていますが、うまくいきませんでした。すべてのワークシートを適切に実行するには? ありがとう

  Sub UpdatePrices()
  Dim ws As Worksheet, Ldate As String, DateRng As Range
  Set DateRng = Range("A3") 'date range is last date
     Ldate = DateRng.Value 'defines ldate as most recent date

    For Each ws In ActiveWorkbook.Worksheets

'Inserts a new row with containing today's Date and exclude sheets
  If Ldate <> Date And ws.Name <> "DATA" Or ws.Name <> "UPDATE" Then
    DateRng.EntireRow.Insert
    DateRng.Offset(-1, 0) = "=TODAY()"
    Else 
    End If
    Next ws
    End sub