Hi all,
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.
Code
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