Tables

[itsgrady]

I use tables all of the time in Excel—makes life easier.

I have some tables in Excel with thousands of rows of information and it is hard to remind all endusers to use the shortcuts to navigate to the bottom of the table to add data on a new row. Is there a way to add data and a new row at the top of a table?

For each day of the year I have to enter the sales for each department for each day. It would be nice to enter this on the top row of the table.

Thanks for the help.

 

[skillilea]

Here you go. Add a button/shape and assign the macro

Public Sub InsertProjectListRecord()
' insert a record

    Dim nws As Worksheet
    Dim nRow As ListRow

    Set nws = ActiveSheet ' your sheet
    
    Application.ScreenUpdating = False
    Application.EnableEvents False
    
    Set nRow = nws.ListObjects("TBLNAME").ListRows.Add(1, AlwaysInsert:=True)
    ' select the new row
    nRow.Range(, 4).Select
    
    Application.ScreenUpdating = True
    Application.EnableEvents True
    
    Set nRow = Nothing
End Sub