Summing by active column vba

Question

\'Find & Copy Column for Actual Curtailed
        Dim ws As Worksheet
        Set ws = Worksheets("Report")
            Range("A2:AC2").Find(What