VBA SOLDIER

Sub Ins_Row()Sheets("sheetname").Select
R = Cells(1, 15).Valuec = Cells(1, 16).Value - 4s = Cells(1, 14).ValueSheets(s).Visible = True

Application.Goto reference:=R
ZAP = ActiveCell.Row
Rows(ZAP & ":" & ZAP).SelectSelection.Copy
ZAP1 = ZAP + cRows(ZAP & ":" & ZAP1).SelectSelection.Insert Shift:=xlDown
End Sub

Sub GOBACK4()
Cells(1, 1).Select Application.ActiveWorkbook.Worksheets("3.Engineering").Activate Range("N7").Select 'Range("Missing_header").Select Sheets("sem1_marksheet").Visible = False
End Sub

Sub VIEWTEN() Sheets("10_marksheet").Visible = True Application.ActiveWorkbook.Worksheets("10_marksheet").Activate Range("A6").SelectEnd Sub