New to VBA

Hi everyone,

I'm new to VBA and I'm looking for a way to insert a new row at the end of my table.

The row needs to use all formats and formulas from the row above.

I found a code which I tried to implement, but it is not working...

(As far as I understand, I only have to make changes to the tablename and sheetname...., or are there other things to consider?)

Can someone please tell me what is wrong with the code or what else I need to do in order to be able to use this code?

I would appreciate your help!

Thanks in advance
__________________________________________________________

Sub AddDataRow(Table1 As String, values() As Variant)
Dim sheet As Worksheet
Dim table As ListObject
Dim col As Integer
Dim lastRow As Range

Set sheet = ActiveWorkbook.Worksheets("Sheet1")
Set table = sheet.ListObjects.Item(Table1)

'First check if the last row is empty; if not, add a row
If table.ListRows.Count > 0 Then
Set lastRow = table.ListRows(table.ListRows.Count).Range
For col = 1 To lastRow.Columns.Count
If Trim(CStr(lastRow.Cells(1, col).Value)) <> "" Then
table.ListRows.Add
Exit For
End If
Next col
End If

'Iterate through the last row and populate it with the entries from values()
Set lastRow = table.ListRows(table.ListRows.Count).Range
For col = 1 To lastRow.Columns.Count
If col <= UBound(values) + 1 Then lastRow.Cells(1, col) = values(col - 1)
Next col
End Sub

Thanks... but it did still not work...

I changed the code now to:

Sub AddDataRow()

Dim Table1 As String
Dim sheet As Worksheet
Dim table As ListObject

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayAlerts = False

Set sheet = ActiveWorkbook.Worksheets("Sheet1")
Set table = sheet.ListObjects.Item("Table1")

table.ListRows(table.ListRows.Count).Range.Copy
table.ListRows(table.ListRows.Count).Range.Insert Shift:=xlDown
table(table.ListRows.Count, Columns("e" & "g")).ClearContents
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


However, I'm struggling now with another problem which is that I want to have the contents of some specific cells deleted when the row gets copied and that part is still not working... :-(