need help to edit code use values instead of coords

[estatefinds]

The following code works with Coords for Example: 1-10- but would like to have used on values such as 5678 or 9872 etc.

Sub blah()
'USED WITH FOR EXAMPLE  2-2-A    WILL BE PLACED AS 2-2- IN COLUMN AF  THEN RUN THE BLAH    
Set Destn = Range("AI2:AP71")    
DVal = Destn.Value    
Range("AF1").Value = "temp"    
Set SceData = Range(Range("AF1"), Range("AF1").End(xlDown))    
SceData.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AE1"), Unique:=True    
Set Uniques = Range(Range("AE2"), Range("AE1").End(xlDown))    
For Each cll In Uniques.Cells        
x = Application.CountIf(SceData, cll.Value)        
coords = Split(cll.Value, "-")        
DVal(CLng(coords(1)), CLng(coords(0))) = x    
Next cll    Range("AE1:AF1").ClearContents    
Uniques.ClearContents    
Destn.Value = DVal
End Sub

[p45cal]

The name of the sub leads me to think it could be one of mine.
At first glance, I see no reason it shouldn't work with larger values.
Where did you get it?
Also, it would make things easier (and give context) if you could attach a workbook to work on.