Active cell row delete

[jamada]

Hi


I'm pasting a range into a sheet, however it s top left corner of the pasted range could be pasted in any row of column 'A".
With the pasted range still active (Highlighted) I want to Run a MACRo that will delete the first 14 rows of this newly pasted range!

For Example, the following code will delete active row and all below, however I only want to delete 14 rows.

I've seen examples delete multiple rows, however none deleting multiple rows from the active row, is someone can make sense of this , much appreciated.

Rows(ActiveCell.Row & ":" & Rows.Count).Delete ' Need this to be 14 rows including Active row to be deleted.

Thank You
Graham

 

[shaowu459]

Rows(ActiveCell.Row & ":" & ActiveCell.Row+13).Delete
please have a try.

 

[jamada]

shaowu459, that was exactly what I required it to do!!

Thank you for you for your assistance for this!

Graham

 

[shaowu459]

I'm glad to hear you solved your problem, cheers~

 

[Rick Rothstein]

Rows(ActiveCell.Row & ":" & ActiveCell.Row+13).Delete

You can write that a little more compactly like this...

ActiveCell.Resize(14).EntireRow.Delete

 

[shaowu459]

yes, thanks a lot

 

[jamada]

Thanks Rick ... YES ... also works very Well.