Как вычесть диапазоны на одном листе и поместить значения на другой лист?

Question

Мне было поручено создать несколько диаграмм для коллег. Он хотел бы иметь возможность нажать кнопку и увидеть, как происходит несколько вещей, одна из которых включает в себя следующее:

На листе «Основные RMA 2020 года» у меня есть столбцы A и O, в которых есть даты ( в форме м / дд / гггг). Я хотел бы вычесть две даты из этого листа и поместить результаты в другой лист, который называется «Мартовская презентация». Если значение> 30, я бы хотел, чтобы все значения были добавлены и помещены в ячейку AD56 в «Мартовской презентации». Если значение находится в диапазоне от 30 до 60, я хотел бы, чтобы все значения были добавлены и помещены в ячейку AE56 в «Мартовской презентации». Если значение> 60, я бы хотел, чтобы все значения были добавлены и помещены в ячейку AF56 в «Мартовской презентации».

Я сталкиваюсь с некоторыми умственными препятствиями в том, как действовать. Я постоянно сталкиваюсь с ошибкой несовпадения типов с моим кодом:

Sub Compile_Click()
  Dim OminusA As Date
  Dim row As Long
  Dim column As Long
  Dim OminusAValue As Integer
  Dim lastRow As Long   
  Sheets("2020 Master RMA's").Select
  lastRow = ActiveSheet.UsedRange.Rows.Count

  For row = 2 To lastRow
  Worksheets("March Presentation").Range("AD56:AF56").Value = DateDiff("d", Worksheets("2020 Master 
  RMA's").Range("A2" & row).Value, Worksheets("2020 Master RMA's").Range("O2" & row).Value)
  OminusAValue = Int(CDbl(OminusA))

    If OminusAValue < 30 Then
        Worksheets("March Presentation").Range("AD56").Value = OminusAValue
    ElseIf OminusAValue > 30 And Int(CDbl(OminusA)) < 60 Then
        Worksheets("March Presentation").Range("AE56").Value = OminusAValue
    Else
        Worksheets("March Presentation").Range("AF56").Value = OminusAValue
    End If
  Next row
End Sub