Relative reference not working when using macros

[pegleg68john]

I'm trying to do is delete a row of chosen cells in my form (form is locked with a password) using a macro then return back to the first cell below the deleted row. When I run the macro what's happening is that it's returning back to the cell chosen while writing the macro (which is at the very top A7). So if I'm several rows below A7, it deletes the row and then returns all the way back to the top of the form causing the user to have to scroll back down to where they were. Does anyone know how to fix this?

[:) Sixthsense :)]

Please share your code with us for correction

[pegleg68john]

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Unprotect Password:="please"
ActiveCell.Range("A1:AI1").Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
Sheets("Parts").Select
Sheets("Sheet").Visible = True
Application.Goto Reference:="Delete_Row1"
Selection.Copy
Sheets("Parts").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Goto Reference:="Delete_Row2"
Selection.Copy
Sheets("Parts").Select
ActiveCell.Offset(0, 12).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, -12).Range("A1").Select
Application.Goto Reference:="Sheet_End"
Sheets("Sheet").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Goto Reference:="Delete_Refresh"
Selection.AutoFill Destination:=ActiveCell.Range("A1:B1000"), Type:= _
xlFillDefault
ActiveCell.Range("A1:B1000").Select
ActiveWindow.ScrollColumn = 1
ActiveCell.Offset(2, -33).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True, Password:="please"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

[pegleg68john]

Any idea as to why my relative reference is not working?