'不要行の削除

 Application.ScreenUpdating = False
    i = 1
    Do While Range("B" & i).Value <> ""
        a = Trim(ActiveCell.Value)
        If Range("A" & i).Value = "" Then
            Rows(i).Delete Shift:=xlUp
        Else
            i = i + 1
        End If
    Loop
'------------------------------------------------------------------

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
    Application.CutCopyMode = False

'----------------------------------------------------------