Sub removeBalkLines()
' 1行目にダミー行を追加（ヘッダー行を消されないよう）
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'AutoFilterでA1セルが空白な行のみ選択
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="="
'対象行を全て削除
Selection.Delete Shift:=xlUp
' A1セルに選択を戻しておく
Range("A1").Select
End Sub
Excel VBA マクロ：指定カラムが空の行を削除する
Excel