delete lat 7 from table help

[seabth]

I need to delete the last 7 rows from a table, but never the first 7. here is what I have to delete the last 7, just not sure about the "IF" first 7 part.

Sub DeleteLast7Rows()

    Dim fname As String
    Dim lr As Long
        

'   Find last row with data in column A
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Delete last 7 rows of data
    Rows(lr - 6 & ":" & lr).Delete

End Sub

 

[Joe4]

Welcome to the Board!

What Excel row is the first row of data on?

If you have something like 10 rows of data to start, then you cannot delete 7, as then you would be left with 3 (which is less than your 7 minimum).
In that case, do you just want to delete 3 to get down to 7, or not delete any at all if you cannot delete 7?

 

[seabth]

Welcome to the Board!

What Excel row is the first row of data on?

If you have something like 10 rows of data to start, then you cannot delete 7, as then you would be left with 3 (which is less than your 7 minimum).
In that case, do you just want to delete 3 to get down to 7, or not delete any at all if you cannot delete 7?

The first 7 rows will always have data... data will be added 7 rows at a time starting at row 8.

 

[Joe4]

The first 7 rows will always have data... data will be added 7 rows at a time starting at row 8.

So then I think this is all you need:

Sub DeleteLast7Rows()

    Dim fname As String
    Dim lr As Long
       

'   Find last row with data in column A
    lr = Cells(Rows.Count, "A").End(xlUp).Row
   
'   Delete last 7 rows of data
    If lr > 7 Then Rows(lr - 6 & ":" & lr).Delete

End Sub

 

[seabth]

So then I think this is all you need:

Sub DeleteLast7Rows()

    Dim fname As String
    Dim lr As Long
      

'   Find last row with data in column A
    lr = Cells(Rows.Count, "A").End(xlUp).Row
  
'   Delete last 7 rows of data
    If lr > 7 Then Rows(lr - 6 & ":" & lr).Delete

End Sub

thanks, that works.

 

[Joe4]

You are welcome.