Macro to delete last entry of a column

  • Thread starter Thread starter Mel
  • Start date Start date
M

Mel

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!
 
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
 
Maybe this

Sub DeleteBottom2Rows()
ActiveSheet.Select
Range("a65000").Select
Selection.End(xlUp).Select
Selection.EntireRow.Delete
Selection.Offset(-1, 0).EntireRow.Delete
End Sub

hth
Vaya con Dios,
Chuck, CABGx3
 
Hello

This macro will delete the last two entries in the column of your active
cell.
(even if the column is empty, or has only one value in row 1)

Sub Delete_Last_2()

On Error Resume Next
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Offset(-1, 0).ClearContents
On Error GoTo 0
Cells(Rows.Count, ActiveCell.Column).End(xlUp).ClearContents

End Sub
 
Let say you data start on cell B3.

Sub deletecell()
Range("b3").Select 'first cell of your column
Selection.End(xlDown).Select 'go all the way down to last used cell
ActiveCell.Offset(-1, 0).Select 'go up one cell
ActiveCell.Resize(2, 1).ClearContents 'increase range 2x1 cell, delete
last two cell
End Sub

Hope it works fine for your needs
 
Sorry, I mis-read your post........this one will delete just the last two
entries in column A, rather than the entire rows.

Sub DeleteBottom2Rows()
ActiveSheet.Select
Range("a65000").Select
Selection.End(xlUp).Select
Selection.ClearContents
Selection.Offset(-1, 0).ClearContents
End Sub

Vaya con Dios,
Chuck, CABGx3
 
Back
Top