Sub M_snb()
  with createobject("scripting.dictionary")
    .item(.count)=array("name","age","town")

    for each sh in sheets
       if sh.name<>"summary" then .item(.count)=application.transpose(sh.cells(1,2).resize(3))
    next

    sheets("summary").cells(1).resize(.count,3)=application.index(.items,0,0)
  end with
End Sub