Delete Rows Between two Columns

[fahadmalik09]

Hey Team,

[TABLE="class: grid, width: 50"]
<tbody>[TR]
[TD]Experience[/TD]
[/TR]
[TR]
[TD]V1[/TD]
[/TR]
[TR]
[TD]V2[/TD]
[/TR]
[TR]
[TD]Mobile No:[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Experience[/TD]
[/TR]
[TR]
[TD]V3[/TD]
[/TR]
[TR]
[TD]v4[/TD]
[/TR]
[TR]
[TD]v5[/TD]
[/TR]
[TR]
[TD]Mobile No:[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Experience[/TD]
[/TR]
[TR]
[TD]V6[/TD]
[/TR]
[TR]
[TD]Mobile No:
[/TD]
[/TR]
[TR]
[TD]Experience[/TD]
[/TR]
[TR]
[TD]V7[/TD]
[/TR]
[TR]
[TD]v8[/TD]
[/TR]
[TR]
[TD]v9[/TD]
[/TR]
[TR]
[TD]Mobile No:[/TD]
[/TR]
</tbody>[/TABLE]

I want to delete Values between "Experience" to "Mobile:", ie v1, v2 , v3, v4 .......
Problem is , some has single row below "Experience", some has more than one row below "Experience"

How to delete

 

[fahadmalik09]

Used the filter and removed [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=NA]#NA ME[/URL] ?

Now showing error runtime 1004
Excel has replaced 1513 instances.

That suggests that you have values like #N/A, [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=NA]#NA [/URL] ME?, #VALUE ! or similar in one or more of your cells.

 

[Fluff]

What is the error message & on what line?

 

[fahadmalik09]

run-time error 1004
excel has replaced 1539 instances

Using Mac, Excel 2011
This is showing...No line error now.

What is the error message & on what line?

 

[REE13]

Turn you filter on, select the blank rows unselect "blank" rows. Then go "File" > "Inspect Workbook" (check for issues), Inspect the document, select the option of "hidden rows" and the hidden rows you filtered out will be automatically deleted.

 

[Fluff]

run-time error 1004
excel has replaced 1539 instances

Using Mac, Excel 2011
This is showing...No line error now.

Are you saying it's now working?

 

[fahadmalik09]

Its Not Working, after running macro, it Just deleted "Experience" word from sheet.

I find this code too,

Option Explicit

Sub delete_rows()

Application.ScreenUpdating = False

With ActiveSheet

.AutoFilterMode = False

.Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row).AutoFilter _
field:=1, Criteria1:="<>Experience", Operator:=xlAnd, Criteria2:="<>Mobile*"

.Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row).Offset(1, 0).EntireRow.Delete

.AutoFilterMode = False

End With

Application.ScreenUpdating = True

End SubIt deleted all entries including name ,Age....just "Experience" and "Mobile" row remains on the sheet.

Are you saying it's now working?