Private Sub CommandButton1_Click()
    Dim i As Long
    Dim temp As Long
   
    i = Cells(Rows.Count, 1).End(xlUp).Row
    Do Until Cells(i, 1) = "4"
    i = i - 1
    Loop
    temp = i + 1
   
    Rows(temp).Insert (xlShiftDown)
   
    Range("B" & temp).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="105.xls", TextToDisplay:="LINK"
    Selection.Font.ColorIndex = 0
    Selection.Font.Underline = xlUnderlineStyleNone
   
    Set a = Range("A" & temp)
   
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
        DisplayAsIcon:=False, Left:=a.Left + 50, Top:=a.Top, Width:=10, _
        Height:=10).Object
    End With
 
End Sub