Copy a formula from the above row VBA

[karolina1406]

I am using a Userform to populate my Order table. I am using the below code which is fine other than I have a formula in Column G but after populating the table with the Userform info - the formula is not copied. Cas someone help?

Dim oNewRow As ListRow
Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Order_info").Range("NewOrderInfo")
rng.Select
Set oNewRow = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)

With ws
oNewRow.Range.Cells(1, 1).Value = Me.OrderNumber.Value
oNewRow.Range.Cells(1, 2).Value = Me.CustomerName.Value

 

[nemmi69]

It should work if you change "value" to "formula"

 

[karolina1406]

It should work if you change "value" to "formula"

unfortunately not.... Now, my UserForm has 2 TextBoxes: SiteNumber and SiteAddress. Only one of them is compulsory to populate the form. So if the user puts SiteNumber - the formula in excel should pick up the address. But it doesn't as it probably "reads" SiteAddress textbox from the UserForm as blank.

So i need a code for my USerForm something along the lines of:
If SiteNumber textbox populated then find address for this site number from "Sites" tab and populate column "Site Address" in the table in the "order_info" tab.
Otherwise, if SiteNumber textbox is not populated - populate column "Site Address" in the table in the "Order_info" tab with the address from SiteAddress of the UserForm

Hope it makes sense