title: My formulas work, but do not refer to the row being worked on in my With loop
body: <p>Using a UserForm in Excel VBA, I cannot seem to make my formula section to refer to cells on the current row being used in my code. I do not want it to only refer to row 2 data. Row 1 is a header row.</p>
  
  <p>How can I do this?</p>
  
  <pre><code>Private Sub cmdAccept_Click()
  
  Dim lastrow As Long
  Dim RowCount As Long
  Dim fieldData As Worksheet
      lastrow = Range("A65536").End(xlUp).Row
  
  RowCount = Worksheets("fieldData").Range("A1").CurrentRegion.Rows.Count
  With Worksheets("fieldData").Range("A1")
      .Offset(RowCount, 0).Value = Me.txtBox_fieldData_dateDelivered.Value
      .Offset(RowCount, 1).Value = Me.comboBox_fieldData_fieldName.Value
      .Offset(RowCount, 2).Value = Me.txtBox_fieldData_acres.Value
      .Offset(RowCount, 3).Value = Me.comboBox_fieldData_crop.Value
      .Offset(RowCount, 4).Value = Me.txtBox_fieldData_product1.Value
      .Offset(RowCount, 5).Value = Me.txtBox_fieldData_product2.Value
      .Offset(RowCount, 6).Value = Me.txtBox_fieldData_product3.Value
      .Offset(RowCount, 7).Value = Me.txtBox_fieldData_product4.Value
      .Offset(RowCount, 8).Value = Me.txtBox_fieldData_product5.Value
      .Offset(RowCount, 9).Value = Me.txtBox_fieldData_product6.Value
      .Offset(RowCount, 10).Value = "=Range($E2:$J2)"
      .Offset(RowCount, 11).Value = "=SUM((11.06*$E2)+(11.7*$F2)+(11.04*$G2)+(10.9*$H2)+(10.28*$I2)+(9.5*$J2)"
      .Offset(RowCount, 12).Value = "=SUM(((11.06*$E2)*(32/100)/$C2)+((11.7*$F2)*(10/100)/$C2)+((11.04*$G2)*(12/100)/$C2)+((10.9*$H2)*(8/100)/$C2)+((10.28*$I2)*(7/100)/$C2)+((9.5*$J2)*(0/100)/$C2))"
      .Offset(RowCount, 13).Value = "=SUM(((11.06*$E2)*(0/100)/$C2)+((11.7*$F2)*(34/100)/$C2)+((11.04*$G2)*(0/100)/$C2)+((10.9*$H2)*(25/100)/$C2)+((10.28*$I2)*(24/100)/$C2)+((9.5*$J2)*(0/100)/$C2))"
      .Offset(RowCount, 14).Value = "=SUM(((11.06*$E2)*(0/100)/$C2)+((11.7*$F2)*(0/100)/$C2)+((11.04*$G2)*(0/100)/$C2)+((10.9*$H2)*(0/100)/$C2)+((10.28*$2I)*(0/100)/$C2)+((9.5*$J2)*(0/100)/$C2))"
      .Offset(RowCount, 15).Value = "=SUM(((11.06*$E2)*(0/100)/$C2)+((11.7*$F2)*(0/100)/$C2)+((11.04*$G2)*(26/100)/$C2)+((10.9*$H2)*(0/100)/$C2)+((10.28*$I2)*(0/100)/$C2)+((9.5*$J2)*(0/100)/$C2))"
  End With
  End Sub
  </code></pre>
  
  <p>The user will input specific data into the UserForm, which will fill columns 1 thru column 10, click on an "Accept Data", then the formulas should run and the results be placed in the same row from column K thru column P. Once complete, the user will continue to input data, until they press the "Close" CommandButton. </p>