別シートに空白セルを詰めデータを自動コピー

excel2013で、【sheet1】の列にあ～わ行まであり、行にそれぞれ氏名を入れています。
グループ１とグループ２にページを上下に分けていて、それぞれ合計５０名です。
行は各20行まで用意していますが、行によっては空白セルもあります。
この【sheet1】のデータを【sheet2】の1～１００番まで番号を振った隣のB列に空白セルを詰めながら氏名データを並べたいのですが、マクロで出来るでしょうか？

ちなみに空白セルを詰めるマクロは下記コードで確認しています。

Sub Macro()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
End Sub

シート間のデータ移動の方法も分かるのですが、２つをどう繋ぎ合わせればいいか分かりません。
簡単ですが、sheet1の参考画像も添付していますので、アドバイス宜しくお願いします。

No.1 ベストアンサー 回答者： keithin 回答日時： 2014/06/07 18:33

どういう順で並べたいのか希望が示されていませんので、てきとーに成り行きでＢ列に並べることにします。

具体的なセル番地が何も示されていないので、シート１のあ～わがＢ～Ｋ列、１行目がタイトル行、グループ１が２行から２０行、グループ２が２１行から３９行とします。ていうかそういう風に作ってください。
シート１は数式じゃなく「生データで」名前を記入します。それをシート２のＢ１以下に転記します。



sub macro1()
　dim h as range
　dim r as long
　on error resume next
　for each h in range("B2:K39").specialcells(xlcelltypeconstants)
　　r = r + 1
　　worksheets("Sheet2").cells(r, "B") = h
　next
end sub

この回答へのお礼

コードまで詳しく記載していただき助かりました。
見事に余白を除いて並びました。

お礼日時：2014/06/10 11:01