Macro to go up one line

[tbrynard01]

I have a form that adds data to a table, I have a macro that adds a new line to the table, but I would like to copy and paste as value the previous line once I've added a line. When I record the macro though it puts a specified range in but I would like to just have it say go up one line and across 5 columns then copy and paste as value?

Any suggestions?

HELP

Thanks
Theresa

 

[DanteAmor]

Try this

Sub Test()
  Dim n As Long
  With ActiveSheet.ListObjects("[COLOR=#0000ff]Table1[/COLOR]")
    .ListRows.Add AlwaysInsert:=True
    n = .DataBodyRange.Rows.Count
    .ListRows(n - 1).Range.Copy
    .ListRows(n).Range.PasteSpecial xlValues
  End With
  Application.CutCopyMode = False
End Sub

 

[tbrynard01]

Fabulous that worked. Thank you so much.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.