Macro needed

[ironsides]

Macro needed to clear all data, color and lines
under the cell that contains the cursor

e g: if cursor is on a cell on line 10
when the macro is activated,
all lines downward from line 11 is completely
cleared of data, color and lines

 

[Michael M]

assuming there is always data in Col "A"

Sub MM1()
Rows(ActiveCell.Row + 1 & ":" & Cells(Rows.Count, "A").End(xlUp).Row).Delete
End Sub

 

[ironsides]

assuming there is always data in Col "A"

Sub MM1()
Rows(ActiveCell.Row + 1 & ":" & Cells(Rows.Count, "A").End(xlUp).Row).Delete
End Sub

Michael M problem is towards the bottom of the sheet there is no data in any of the cells
so it still leaves colors and lines below the last line that contains data. In order for your formula to work,
before activating the macro I must scroll to bottom of sheet and enter data. It works if I do
this, and if there is no other solution, I will do it. thanks for your help. Ironsides

 

[Fluff]

Try

Rows(ActiveCell.Row + 1 & ":" & Rows.Count).Delete

 

[ironsides]

Fluff and Michael M Thank you working perfectly well Ironsides

 

[Fluff]

Glad we could help & thanks for the feedback