Sub Test()
Dim d As New Collection
Dim arr()
Dim r As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each cel In Range("Data")
d.Add cel, cel
Next
On Error GoTo 0
ReDim arr(d.Count - 1)
For Each it In d
arr(i) = it
i = i + 1
Next
Set r = Sheets("Concat").Cells(4, 1).Resize(d.Count)
r = Application.Transpose(arr)
r.Offset(, 6).FormulaR1C1 = "=IF(ISNUMBER(RIGHT(RC[-6],6)*1),COUNTIF('IND-External'!C[-6],Concat!RC[-6])*RIGHT(RC[-6],6),"""")"
r.Offset(, 8).FormulaR1C1 = "=SUMIF('IND-External'!C1,Concat!RC1,'IND-External'!C)"
r.Offset(, 9).FormulaR1C1 = "=SUMIF('IND-External'!C1,Concat!RC1,'IND-External'!C)"
r.Offset(, 10).FormulaR1C1 = "=SUMIF('IND-External'!C1,Concat!RC1,'IND-External'!C)"
'Remove formulae
r.Resize(, 11).Value = r.Resize(, 11).Value
Application.ScreenUpdating = False
End Sub