在最后一个空单元格找到的活动单元格上的countif

Question

我有四个特定的部分文本，我需要彼此分开，然后指定它们在顶部，然后提供下面的计数和总和。我当前的子目录为我提供了第一部分。我把它们分开并且标题更改了字体，但是我找不到任何方法可以在任何地方在线应用我的问题，我需要计算（在这个例子中）包含＆＃34; DPC＆＃34;在B列中然后在其旁边提供C列中同一行的总和。

Sub FontBoldItalicAndSumOnlineBankTransfers()

    Dim MyRange As Range
    Set MyRange = ActiveSheet.Range("A:N")
    MyRange.Find("DPC", LookIn:=xlValues).Select
    ActiveCell.Offset(RowOffset:=-1).Activate
    ActiveCell = "Online Bank Transfers": Selection.Font.FontStyle = "Bold Italic"
    NextFree = Range("B5:B" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("B" & NextFree).Select


End Sub