今いる行を選択/削除

'行を選択
Selection.EntireRow.Select
'行を削除
Selection.EntireRow.Delete

ネタ元

• http://oshiete.goo.ne.jp/qa/2111215.html