Trouble Deleting Sheet Rows in Table with Macro

[ThiccNugg]

For some reason this code keeps bring up the error "Delete method of Range class failed". However when doing it manually throughout excel via delete sheet rows it works fine. The code copied a whole dataset from a sheet and then I need to remove the rows with a blank cell in column X - this is where the issue occurs.

Sub BunnyHopperRoadsCopy()

Sheets("BCA").Select
Range("A2", Range("A" & Rows.Count).End(xlUp)).EntireRow.Select
Selection.Copy _
Destination:=Worksheets("BH ROADS").Range("A2")

Sheets("BH ROADS").Activate
Columns("X:X").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete shift:=xlUp

End Sub

 

[BenGee]

You could try;

Sheets("BH ROADS").Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[KOKOSEK]

Sub BunnyHopperRoadsCopy()
Sheets("BCA").Range("A2", Range("A" & Rows.Count).End(xlUp)).EntireRow.Copy Destination:=Worksheets("BH ROADS").Range("A2")
Sheets("BH ROADS").Columns("X:X").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End Sub

 

[ThiccNugg]

Sub BunnyHopperRoadsCopy()
Sheets("BCA").Range("A2", Range("A" & Rows.Count).End(xlUp)).EntireRow.Copy Destination:=Worksheets("BH ROADS").Range("A2")
Sheets("BH ROADS").Columns("X:X").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End Sub

Thanks for the reply but yeah still throwing that error with that code to..