Add new row at the top, rather than the bottom

[bsnow]

Hi guys

I'm trying to tweak my VBA code so that it adds a new row at the top, rather than the bottom (most recent row entries display first).

The code I'm using currently is:

Private Sub Button1_Click()
ActiveSheet.ListObjects("Table2").ListRows.Add AlwaysInsert:=True
End Sub

Does anyone have any suggestions to teak the code so it displays the newest row first (row 2) and pushes the other rows down every time a row is added?

Cheers guys!

 

[Fluff]

How about

Private Sub Button1_Click()
     ActiveSheet.ListObjects("Table2").ListRows.Add 1, True
End Sub

 

[bsnow]

Hi Fluff - thank you for that.

How can I stop the newly added top row from taking on the properties of the header row (i.e. black fill etc.)?

 

[Fluff]

It doesn't do that for me. It uses the data range format

 

[bsnow]

Sorted now, thank very much - you're a star!

 

[Fluff]

You're welcome & thanks for the feedback.