VBA to calx of debit credit values from above greater than 1 in R:R

Dear experts

I have N number of closed workbooks saved in path which contains sheet checklist pivottable with formulas basic function from N to S column.

i want copy range of N and pivot row labels of key words if range of R6:R >1 to Calc sheet segregate as minus value and plus value

code should copy keywords only if Clearing account value towards >1 in r column avoid clearaccount value in pivot

at end i want copy rows line item from master through AB col ,segregate keywords of both minus/plus. to sheet ops.

any experts help on this?