Add row to table copying formatting

[emilybrush]

Hi,

Very grateful for anyone's help or advice! I have a table called "CR_Table" - I'm looking to add some VBA code to insert a row to the bottom of the table when I click on a button, copying the formatting/ formula from above. Please could anyone let me know what code would help me do this?

Thank you!!

 

[skillilea]

try this, it will copy all formats and formulas

Sub InsertRow()
    Dim tbl As ListObject
    Dim nRow As ListRow
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set tbl = Worksheets("Sheet1").ListObjects("CR_Table") ' change your worksheet name
    
    With tbl
        Set nRow = .ListRows.Add
        
        nRow.Range(, 1).Value = "value"
        nRow.Range(, 2).Value = "valu2"
    End With

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[emilybrush]

try this, it will copy all formats and formulas

Sub InsertRow()
    Dim tbl As ListObject
    Dim nRow As ListRow
   
    Application.ScreenUpdating = False
    Application.EnableEvents = False
   
    Set tbl = Worksheets("Sheet1").ListObjects("CR_Table") ' change your worksheet name
   
    With tbl
        Set nRow = .ListRows.Add
       
        nRow.Range(, 1).Value = "value"
        nRow.Range(, 2).Value = "valu2"
    End With

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Thank you so much!!

 

[skillilea]

Glad to help