Hi
Could anyone please help me to update my existing VBA code so that the row with the new product gets formatted in the same way as row above and all the formulas are copied too.
I thought because I have my price lists data converted into a table it should automatically do that for me anyway, but it does not seem to be the case.
Please see my file attached, if you run a macro to add Product 11 to each price list - you should see what I mean 
Thanks,
Jurate
You need to use the correct references in VBA for a Table. Try this
Sub AddNewProduct()
Dim oTbl As ListObject, oTblMain As ListObject
Dim oNewRw As ListRow
Dim rCl As Range
Set oTblMain = Sheet1.ListObjects(1)
For Each rCl In oTblMain.ListColumns(2).DataBodyRange.Cells
If rCl.Value = "Yes" And rCl.Offset(, 1).Value = "OK" Then
Set oTbl = Worksheets(rCl.Offset(, -1).Value).ListObjects(1)
Set oNewRw = oTbl.ListRows.Add(AlwaysInsert:=True)
oNewRw.Range.Cells(, 1).Value = Range("A1").Value
End If
Next rCl
End SubPleased to help
Don’t have an account yet? Register yourself now and be a part of our community!