Loop to ad cells to a named range

hi everyone..

can anyone help me in doing something like that :

ActiveWorkbook.Names.Add Name:="destination"

for each cell in range("source")
  if [contition] then
    [ADD CELL TO RANGE("destination")
 end if
next

i don't know hot to make that for separated cells (i mean for example a1, a4, a9 etcc the ones matched by the condition )

thanks ^_^