Deleting rows and columns resulting in black line

[Prabs8291]

I have a peculiar problem... I am trying to delete the contents of all the rows and columns beyond some row... I am using the below macro for that... The contents are cleared successfully but a black line is produced. Please help !!!

Sub CLEAR_REPORT()
Sheets("Report").Select
Rows("8:8").Select
Range("A8").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
End Sub

 

[nuked]

Try:

Sheets("Report").Range("8:" & sheets("Report").rows.count).Delete Shift:=xlUp

 

[Prabs8291]

Hi nuked,

Thanks for the reply....the code given by you clears the contents but the black line is again coming

 

[MARK858]

Do you have or had any shapes or other objects on the sheet?
If you have try...

Ctrl-G – Select – Objects – OK – Delete