title: Embed file into specific column and go down one row of the column to insert another file
body: <p>I'm trying to make a catalog where a user will write a description and embed files (pdf, Excel, PowerPoint) into an Excel sheet.</p>
  <p>I made the text input from the user go down one row with each entry with: <code>shj.Range(&quot;B&quot; &amp; n + 1)</code> but this doesn't work with embedding a file.</p>
  <p>Here is how the sheet looks <a href="https://i.imgur.com/XHqvt31.png" rel="nofollow noreferrer">imgur</a>.</p>
  <p>I'm trying to insert the file into cell at column C and go down one row to insert another file.</p>
  <pre><code>Private Sub CommandButton1_Click()
  If Me.TextBox1.Value = &quot;&quot; Then
      MsgBox &quot;Please enter the description&quot;, vbCritical
      Exit Sub
  End If
  
  Dim shj As Worksheet
  worksheetName = ActiveSheet.Name
  Set shj = ThisWorkbook.Sheets(worksheetName)
  Dim n As Long
  
  n = shj.Range(&quot;B&quot; &amp; Application.Rows.Count).End(xlUp).Row
  shj.Range(&quot;B&quot; &amp; n + 1).Value = Me.TextBox1.Value
  
  Dim FName As String
  
  shj.Range(&quot;C&quot; &amp; n + 1).Select '&lt;~ this doesn't seem to work
  FName$ = Application.GetOpenFilename
  
  ActiveSheet.OLEObjects.Add(Filename:=FName, _
    Link:=True, _
    DisplayAsIcon:=True, _
    Height:=10).Select
  
  Unload Me
  
  End Sub
  </code></pre>