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

    最終行 = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行を取得

    Range("A1:B" & 最終行).AutoFilter Field:=1, Criteria1:="=" '1は列数(A列),"="は空白
    
    Rows("2:" & 最終行).Delete 'A列の空白セルがソートされ全行削除

    ActiveSheet.AutoFilterMode = False 'フィルター解除

End Sub