Macro to delete last entry of a column
Hi
This should do it:
Sub DeleteRows()
TargetCol = "A"
LastRow = Range(TargetCol & Rows.Count).End(xlUp).Row
Cells(LastRow - 1, TargetCol).Resize(2, 1).ClearContents
End Sub
Regards,
Per
On 6 Feb., 01:34, Mel wrote:
I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete the
last entries but deletes the data in the rows that was recorded in the
original macro. *
Please could you advise me on the line of code I need to refer to the last
two entries of a column of any length.
Thank you!
|