Count If macro problems

[tuytuy]

hi, i have a code to calculate the total cost of international and then national calls and past it in a separated sheet called Synthesis. But it doesn't seem to work and i cant figure out why

Sub MC()
'Copy COST FOR INTERNATIONAL CALLS
ActiveWorkbook.Sheets("Sheet6").Activate
Dim LasRow As Long, TotalIN As Double
  Const LookupType As String = "Communications internationales" Or "Communications effectuées a l'étranger (ROAMING)" Or "Communications recues a l'étranger (ROAMING)"
  LasRow = Cells(Rows.Count, "O").End(xlUp).Row
  Total = WorksheetFunction.SumIf(Range("O2:O" & LasRow), LookupType, Range("R2:R" & LasRow))
ActiveWorkbook.Sheets("Synthesis").Activate
Range("A4").Value = "Total cost of International Communications"
Range("B4").Value = TotalIN


'Copy COST FOR NATIONAL CALLS
ActiveWorkbook.Sheets("Sheet6").Activate
Dim LastRow As Long, TotalN As Double
  Const LookupType As String = "Communications nationales"
  LastRow = Cells(Rows.Count, "O").End(xlUp).Row
  Total = WorksheetFunction.SumIf(Range("O2:O" & LastRow), LookupType, Range("R2:R" & LastRow))
ActiveWorkbook.Sheets("Synthesis").Activate
Range("A3").Value = "Total cost of National Communications"
Range("B3").Value = TotalN
End Sub

 

[VoG]

Continuation of http://www.mrexcel.com/forum/excel-questions/694464-add-cell-if.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: Forum Rules).