Sub 空白のセル行を削除()

Sub 空白のセル行を削除()

  n = Cells(Rows.Count, "A").End(xlUp).Row
    Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Rows("1:" & n).Select
    Selection.Copy
    Sheets.Add
    Rows("1:1").Select
    ActiveSheet.Paste
    Range("A1").Select

End Sub
------------------------------------
削除だと時間がかかるので、新規シートを作成してネタがあるものをコピペする。