Macro: Delete Row Above Last

[D]

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

 

[John Bundy]

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

 

[D]

Thanks! I didn't realize it was that easy.

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

 

[JUMA]

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