du hast hier .Cells("$ID$2").Value so ziemlich alles falsch gemacht
.Cells(
"$ID$2"
).Value so ziemlich alles falsch gemacht
cells(Zeile, Spalte) --> cells(2, 238)
oder
Range("ID2")