delete blank value

[smartguy]

hello all,

i have excel file in the below format.

Excel Workbook
	A	B	C	D	E	F	G	H	I	J
1	docu	sub	ds	dsd	dsds		ssa		sa	dsds
2
3	1	a	a	a	sasas	1		2		ds
4	2	a	a	a	sasas	2		2		ds
5	3	a	a	a	sasas	3		2		ds
6	4	a	a	a	sasas	4		2		d
7	5	a	a	a	sasas	5		2		d
8	6	a	a	a	sasas	6		2		d
9	7	a	a	a	sasas	7		2		d
10	8	a	a	a	a	8		2		d
11
12	9	a	a	a	sasas	9		2		d
13	10	a	a	a	asa	10		2		d
14	11	a	a	a	ssa	11		2		d
15	12	a	a	a	sasas	12		2		d
16	13	a	a	a	sasas	13		2		d
17	14	a	a	a	sasas	14		2		d
18	15	a	a	a	sasas	15		2		d
19	16	a	a	a	sasas	16		2		d
20	17	a	a	a	a	17		2		d
21	18	a	a	a	sasas	18		2		d
22	19	a	a	a	s	19		2		d
23
24
25
26
27	20	a	a	a	s	20		2		d
28	21	a	a	a	s	21		2		d
29	22	a	a	a	s	22		2		d
30	23	a	a	a	s	23		2		d
31	24	a	a	a	s	24		2		d
32	25	a	a	a	s	25		2		d
33	26	a	a	a	s	26		2		d
34	27	a	a	a	s	27		2		d
Sheet1

I want to delete blank data.

Answer :

Excel Workbook
	A	B	C	D	E	F	G	H	I	J
1	docu	sub	ds	dsd	dsds		ssa		sa	dsds
2	1	a	a	a	sasas	1		2		ds
3	2	a	a	a	sasas	2		2		ds
4	3	a	a	a	sasas	3		2		ds
5	4	a	a	a	sasas	4		2		d
6	5	a	a	a	sasas	5		2		d
7	6	a	a	a	sasas	6		2		d
8	7	a	a	a	sasas	7		2		d
9	8	a	a	a	a	8		2		d
10	9	a	a	a	sasas	9		2		d
11	10	a	a	a	asa	10		2		d
12	11	a	a	a	ssa	11		2		d
13	12	a	a	a	sasas	12		2		d
14	13	a	a	a	sasas	13		2		d
15	14	a	a	a	sasas	14		2		d
16	15	a	a	a	sasas	15		2		d
17	16	a	a	a	sasas	16		2		d
18	17	a	a	a	a	17		2		d
19	18	a	a	a	sasas	18		2		d
20	19	a	a	a	s	19		2		d
21	20	a	a	a	s	20		2		d
22	21	a	a	a	s	21		2		d
23	22	a	a	a	s	22		2		d
24	23	a	a	a	s	23		2		d
25	24	a	a	a	s	24		2		d
26	25	a	a	a	s	25		2		d
27	26	a	a	a	s	26		2		d
28	27	a	a	a	s	27		2		d
Sheet1

 

[Ruddles]

Sort using col A as the sort key.

 

[smartguy]

I Looking for VBA Code

 

[smartguy]

I got It......

Sub delete_rows()
Dim last_row As Long
last_row = Range("A" & Rows.Count).End(xlUp).Row

For i = last_row To 1 Step -1
    If Cells(i, 1) = "" Then
        Cells(i, 1).EntireRow.Delete
    End If
Next

End Sub