Macro: Delete Row Above Last
Last_Row contains the last row number and you want to delete the one before
it, so change your select like this
Range("A" & last_row-1).Select
or you could change it when you set the value like this
last_row = Cells.SpecialCells(xlLastCell).Row-1
--
-John
Please rate when your question is answered to help us and others know what
is helpful.
"D" wrote:
Hi,
I am trying to create a macro to delete the line above my totals line (which
is the last line in the sheet).
I am using the following macro to delete a line but am not sure how to
modify it. Any advice is appreciated.
------
Sub DeleteLine()
Dim last_row As Long
ActiveSheet.UsedRange
last_row = Cells.SpecialCells(xlLastCell).Row
Range("A" & last_row).Select
Selection.EntireRow.Delete
End Sub
|