Need help with a macro to add & remove rows in specific locations

[thesteve]

Hello -

I've only had tremendous results from this community and have learned a lot so I return with my newest problem. I'm working on creating a sheet to manage personnel and realized that my life could be made much easier using vba, the trouble is I'm having trouble coming up with it. I've attached what I think is a good example of what I'm looking for that I hope some of you can help me with.

addpersrempersexample.xlsx

The task has to do with adding two rows in changing (though following a consistent pattern) locations while also allowing for the removal of the row pair through the click of buttons. It will be much clearer in the example.

Currently I use a primitive macro too add people and I am forced to manually remove them as I couldn't come up with a suitable removal method:

Public Sub AddPers()
    Dim offsval As Range
    Set offsval = Range("A4")
    Range("B28").Select
    ActiveCell.Offset(1, 0).EntireRow.Insert
    ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
    ActiveCell.Offset(offsval, 0).Activate
    ActiveCell.Offset(1, 0).EntireRow.Insert
    ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
    ActiveCell.Offset(-5, 0).Activate
    Range("A4").Value = 1 + Range("A4").Value
End Sub

In the code offsval is initially equal to 5, the distance between the rows in the first move
when I remove people I have to be careful to ensure the offsval is changed to be correct

another minor problem with this code I haven't devoted too much thought to is that the added rows are placed second rather than at the bottom - i understand why this is, but haven't thought of an easy solution given my implementation.


any direction or help is much appreciated , especially in regards to easily removing people !

steve

**** sorry about typo in B8 on example just caught it