I am looking for help with a macro that inserts a new row to a table that includes a combobox in one of the columns. I have created a macro with a CommandButton that carries down formulas and formats from the last row in the table but I do not know how to include the ComboBox. I am using Excel 2013.
The table is found in columns A thru I in rows 20 thru 27 with the ComboBox in column H
the following is the code I have so far.
Private Sub CommandButton1_Click() Dim Lr As Integer, Fr As Integer Fr = Columns("A").Find(What:="Item", After:=Range("A20")).Row Lr = Range("A" & Fr).End(xlDown).Row Rows(Lr + 1).Insert Shift:=xlDown Cells(Lr + 1, "A") = Cells(Lr, "A") + 1 Rows(Lr).Copy Rows(Lr + 1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats Rows(Lr + 1).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Cells(Lr + 1, "B").Select End Sub