Sub 縦方向に結合()
	With Selection
		If .Rows.Count > 1 Then
			For i = 0 To .Columns.Count - 1
				Range(Cells(.Row, .Column + i), Cells(.Row + .Rows.Count - 1, .Column + i)).Merge
			Next i
		End If
	End With
End Sub

http://www.google.com/reader/link?
url=[URL]
&title=[記事タイトル]
&srcTitle=[サイト名]

javascript:var d=document,s=d.title,t=d.evaluate('//h1',d,null,7,null).snapshotItem(0).textContent,l=location.href;location.href='http://www.google.com/reader/link?url='+l+'&title='+t+'&srcTitle='+s;void(0);

<a href="javascript:void(0);" onclick="(function(u,t,s){var e=encodeURIComponent;location.href='http://www.google.com/reader/link?url='+e(u)+'&title='+e(t)+'&srcTitle='+e(s);})('URL','記事タイトル','サイト名');return false;">GoogleBuzzに投稿</a>