View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Per Jessen[_2_] Per Jessen[_2_] is offline
external usenet poster
 
Posts: 703
Default 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!