Macro button to expand/collapse: not work for newly added rows

[jjennyliu]

After recorded the macro with the existing data, when I tried to add new rows and blank, it doesn't collapse those newly rows that blank. Do you know why? Macro code below:



================================================================
Sub Button1()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Selection.AutoFilter
ActiveSheet.Range("$B$3:$H$146").AutoFilter Field:=2, Criteria1:="="
ActiveSheet.Range("$B$3:$H$146").AutoFilter Field:=3, Criteria1:="="
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowInsertingColumns:=True, AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = True
End Sub

Sub Button2()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Selection.AutoFilter
ActiveSheet.Range("$B$3:$H$146").AutoFilter Field:=3, Criteria1:="="
ActiveSheet.Protect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowInsertingColumns:=True, AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = True
End Sub

[Richard Buttrey]

Hi and welcome to the forum. Unfortunatel your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Please click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here