Código 1 funciona na range D13, já o código 2, não !
Quando coloco o código da range D12 no CASE não passa e se deixar somente o código da D13, funciona !

Código 1

Private Sub Workbook_Open()

Dim DataAgo As Date

DataAgo = DateSerial(Year(Date), 8, 15)

If Date > DataAgo Then

    Planilha1.Range("D13").FormulaR1C1 = "=R[-1]C[6]+RC[2]-RC[4]"

End If

End Sub

Código 2

Private Sub Workbook_Open()

Select Case Date
           
  Case Is > DateSerial(Year(Date), 7, 27)
            Planilha1.Range("D12").FormulaR1C1 = "=R[-1]C[6]+RC[2]-RC[4]"
  
  Case Is > DateSerial(Year(Date), 8, 15)
            Planilha1.Range("D13").FormulaR1C1 = "=R[-1]C[6]+RC[2]-RC[4]"
       
End Select

End Sub

Obrigado !