Range("B6:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaArray = _
"=IF('base paybox'!R[-4]C[11]="""","""",1*MID('base paybox'!R[-4]C[11],MATCH(TRUE,ISNUMBER(1*MID('base paybox'!R[-4]C[11],ROW(R1:R20),1)),0),COUNT(1*MID('base paybox'!R[-4]C[11],ROW(R1:R20),1))))"