Macro - Deleting Rows

[Matt_Chelmsford]

Good afternoon everyone,

It looks like it's going to be very nice this weekend in the South east/London area. Just typical, why could it not have been nice last weekend when I saw Springsteen?

ANyway here is my problem

cell H58 is the start of my data (ignoring headings) and in column H I have sequential numbering, so H58 is 1.

The data range goes over to column M.

I have successfully put in a macro where the user just hits the button and it adds a line in. For example if there are 12 rows then it can add 13, 14, 15,etc just by hitting the button.

I need a macro that does the opposite where it goes down to the last number and deletes the cells H:M.

Grateful for any help!

kind regards

Matthew

 

[JLGWhiz]

You can attach this to a button.

Code:
Sub delLast()
Dim sh As Worksheet, lr As Long
Set sh = Sheets(1) 'Edit sheet name
lr = sh.Cells(Rows.Count, "H").End(xlUp).Row
Range("H" & lr).Resize(1, 6).Delete
End Sub
Code:

 

[TryingToLearn]

or try this:

Sub HM()
    Dim LRw
    LRw = Range("H" & Rows.Count).End(xlUp).Row
    Range("H" & LRw & ":M" & LRw).Delete
End Sub