Help! Select blank cell in a filtered list

If you don't want to use PV Tables, you could try something like:

dim rngClient, rngAmount as Range
dim n as integer

set rngClient = Activeworkbook.Activeworksheet.Range("A:A")
set rngAmount = Activeworkbook.Activeworksheet.Range("B:B")

n = Activeworkbook.Activeworksheet.UsedRange.Rows().Count + 3

rngClient.Rows(n).Value = "Total"
rngAmount.Rows(n).Value = [Your filtered sum]

This should get you to where you can start entering data 3 rows after the used range.

*changed to usedrange.rows() for n