Macro to copy selected cell, and paste selection into a new row on data table in different sheet

[HuwEdgar]

Hello.

I'm trying to get a macro working that copies a single manually selected cell and pastes the contents as a new row on a single column table held on a different worksheet in the same workbook.

Any ideas?

Thanks very much.

 

[Logit]

This macro will copy Range("A3"G3") from Sheet 1 to Sheet 2 on the first empty row in Column A.
Each time it is run, it repeats the process, pasting to the next available empty row again.

It can be edited to fit your needs.

Sub Macro1()
   
    Worksheets("sheet1").Range("A3:G3").Copy
    
    Worksheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

    Application.CutCopyMode = False

End Sub

 

[HuwEdgar]

This macro will copy Range("A3"G3") from Sheet 1 to Sheet 2 on the first empty row in Column A.
Each time it is run, it repeats the process, pasting to the next available empty row again.

It can be edited to fit your needs.

Sub Macro1()
  
    Worksheets("sheet1").Range("A3:G3").Copy
   
    Worksheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

    Application.CutCopyMode = False

End Sub

Thank you. I was trying to create a new row in the table with

ws.ListObjects("table1").ListRows.Add

but what you have provided creates a new row on the table, and does the job it needs to. Appreciate your help.

 

[Logit]

You are welcome.