How do I add a new row with text

[Alotheal]

Here's how I want this to work - I included my table as reference.

When I click the arrow icon I want three events to occur.
1. A new row appears below it, it will take the old B6 position.
2. The row contains the formula as depicted in B6.
3. The current date is populated in (in this example) cell F6.

I'm unsure how hard this is, I can't figure it out. Right now all my VBA code does is insert a new row.

Sub sbInsertingRows()
Range("B6").EntireRow.Insert
End Sub