Your code is giving at error on this line 
ReDim dmp(1 To cDif.Count, 1 To 4)
But i dont have much experience with arrays. Let us see if you get some help from others here or i can push it to the experts.