How to keep Inserting Rows Command from moving other cells in a sheet

[Ladyj205]

I have 2 command buttons on excel 2010.
everytime i click on the commandbuttons for each the other tables and cells seems be to effected. like everything is out of place. is there a vba for my vba codes to keep the other cells still while the user select the new row button.

the codes i have for my command buttons:

Private Sub CommandButton2_Click()
Sheets("Sheet1").Range("A32").Select
ActiveCell.EntireRow.Insert Shift:=xlDown


Sheets("Sheet1").Range("A32:D32").Select
Selection.Borders.Weight = xlThin
End Sub


Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A15").Select
ActiveCell.EntireRow.Insert Shift:=xlDown


Sheets("Sheet1").Range("A15:D15").Select
Selection.Borders.Weight = xlThin


End Sub