السلام عليكم غير هذا الجزء
rng.Offset(0, 1).Value = y
rng.Offset(0, 2).Value = x
rng.Offset(0, 3).Value = ListFind.List(ListFind.ListIndex, 2)
rng.Offset(0, 4).Value = z
بهذا
rng.Offset(0, 1).Value = y
rng.Offset(0, 2).Value = x
rng.Offset(0, 3).Value = z