Macros to Group Tabs, Delete Row, and Ungroup Tabs Required???

Hi All,

Hopefully someone can help with this query.

I have a spreadsheet with the below macros that, groups tabs, add a row across the tabs at the selected row on the front tab and also copies the formula from the above line.

Sub AddLines()
Worksheets(Array("Patient_List", "Finance_List", "Invoice_List", "Case_Management_List")).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Finance_List").Range("A4").End(xlDown).Offset(1).Resize(, 11).Formula = Sheets("Finance_List").Range("A4:K4").Formula
Sheets("Invoice_List").Range("A4").End(xlDown).Offset(1).Resize(, 11).Formula = Sheets("Invoice_List").Range("A4:K4").Formula
Sheets("Case_Management_List").Range("A4").End(xlDown).Offset(1).Resize(, 13).Formula = Sheets("Case_Management_List").Range("A4:M4").Formula
Sheets("Patient_List").Select

Users of the sheet have run into issues where they add erroneous data and then need to delete said row, but they require the delete across all tabs to ensure all data (including manually inputted data) remains in the repective row throughout the workbook tabs.

So in a nutshell what I need is the following:

A macros button that will allow the user to select the erroneous row in the Database sheet ('Patient_List' as above), hit the button to group all tabs, delete the selected row across all tabs, then ungroup tabs returning the spreadsheet to its original state.

Thanks
seash