VBA Macros to insert a row at the end of a table, then paste values of previously copied lines in a specific range of the new row

[lbradbury]

I'm looking for help on a VBA Macros. This is my current code. Where the **** are I need some code to insert a row at the end of the table on the active worksheet, and then paste the values copied in the above code with the range of ("E1:R8") into the range (E?:R?") of the newly created row.

`Sub Workbook()

Dim wb As Workbook
Set wb = Workbooks.Add

ThisWorkbook.Sheets("RFP Form").Copy Before:=wb.Sheets(1)
ThisWorkbook.Sheets("DataHelperSheet").Copy After:=wb.Sheets(1)
Application.DisplayAlerts = False

wb.SaveAs "Z:\Temp\test3.xlsx"

Application.DisplayAlerts = True

ActiveWorkbook.SaveAs FileName:="Z:\Temp\" & Range("I1").Value

Worksheets("DataHelperSheet").Activate
Range("E1:R8").Select
Selection.Copy

Workbooks("Proposal Quote Master List(LB).xlsm").Activate
Worksheets("Master List").Activate
***

Range("E1:R298").PasteSpecial Paste:=xlPasteValues


End Sub

 

[Fluff]

How about

Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues