Sub AddToBottomOfExistingTable()
Dim WS As Worksheet
Dim oList As ListObject
Dim oRow As ListRow

Set WS = ActiveSheet
Set oList = WS.ListObjects(1)
Set oRow = oList.ListRows.Add
oRow.Range.Value = "Sludge"
End Sub
--
My resource was the Excel VBA help file.

Jim Cone
Portland, Oregon USA
Add-in download: http://tinyurl.com/ExtrasForXL




"Debbie D."
wrote in message
Hi all new to VBA and have a user form where the person can enter various
sales data into Excel. The data will be entered into a spreadsheet within a
defined Table I.e. @Table1 defined with the new Table feature of 2007. As
the user over time inputs new sales info via the user form it will need to
place in the next available row in the in the @Table1. Can anyone give any
resources where I can find code snippets to modify.

Many thanks for taking the time to look and any and all guidance welcome.

Debbie (UK)