Dynamic cell Macro

[doriannjeshi]

Hi

I need to delete the row where the total is less than 1. Possible to have this macro dynamic , totals column is always going to be at the end of the range!

Book2
	A	B	C	D	E	F	G
1	A	B	C	D	E	F	TOTAL
2	1	1			-3	1	0
3	1	1	1	1	1	1	6
4	1	1	1	1	1	1	6
5	1	1	1	1	1	1	6
6	1	1	1		1	1	5
7	1	1	1	1	1		5
8	1	1	1	1	1	1	6
9	1	1	1	-6		1	-2
10	1	1	1	1			4
11	1	1	1	1	1	1	6
12	1	1		1	1	1	5
13	1	1	1	1	1	1	6
14	1	1	1		1	1	5
sheet1

Cell Formulas
Range	Formula
G2:G14	G2	=SUM(A2:F2)

 

[doriannjeshi]

If possible also to sort z-a from the total column with the macro

 

[MARK858]

If possible also to sort z-a from the total column with the macro

Not while the column is formulas rather than values as they'll recalculate.
Try the code below (uncomment the sort line if you convert the formulas to values)

Sub doria()
    Dim lc As Long, lr As Long
    Application.ScreenUpdating = False
   
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    lr = Cells(Rows.Count, lc).End(xlUp).Row

    With Range(Cells(1, lc), Cells(lr, lc))

        .AutoFilter 1, "<1"
       
        On Error Resume Next
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
       
        On Error GoTo 0
        .AutoFilter
        '.Sort .Cells(1), xlDescending, , , , , , xlYes
   
    End With

    Application.ScreenUpdating = True
End Sub

 

[doriannjeshi]

Thank you

 

[MARK858]

You're welcome