Sum visible (or filtered) range in an Excel Spreadsheet

In Excel, I need to filter and display the COUNTIF & SUM of both the global range and the visible (or filtered) range.

I can already display the COUNTIF & SUM of the global range with the following code.

AtmCount = Application.WorksheetFunction.CountIf(Range("X3:X4533"), ">0")
AtmSum = Application.WorksheetFunction.Sum(Range("X3:X4533"))

I can also get the COUNT of the visible (or filtered) range as follows:

AtmCurrentCount = Range("X3:X4533").SpecialCells(xlCellTypeVisible).Count

However, this still leaves the SUM of visible (or filtered) range outstanding.

AtmCurrentSum = ???

I really stuck. Please, can somebody help me?