Help on VBA code to delete a row in more than one table from a single command button

Hi All,

i am very new to excel and VBA/Macro. Yesterday I was given some excellent help with defining some code to create a command button that would delete and insert a row into a table that I had defined. I now want to take this one step further and use the same command button to insert/delete rows from another table I have created in the same sheet.

I have manged to get it working for an insert but not for the delete more through luck than logic. If have attached the code (apologies if I am not supposed to do this). If anyone could help that would be ideal.

Sub InsertRow()
With Intersect(ActiveCell.EntireRow, Range("Table1"))
With Intersect(ActiveCell.EntireRow, Range("Table3"))
  ActiveSheet.Unprotect
    .Copy
    .Offset(1).Insert
    Application.CutCopyMode = False
    On Error Resume Next
    .Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
    On Error GoTo 0
    ActiveSheet.Protect
  End With
  End With
End Sub

Sub Delete_Row()
 With Intersect(ActiveCell.EntireRow, Range("Table1"))
    ActiveSheet.Unprotect
    Intersect(ActiveCell.EntireRow, Range("Table1")).Delete Shift:=xlUp
    ActiveSheet.Protect
 End With
End Sub

Regards Graham

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)