Add new row and copy the formula from the above cell

[shaw600]

Hi,

I have a macro that currently populates a table for me at the click of a button:

Dim LastRow As Long, ws As Worksheet
Set ws = Sheets("Job Database")
LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row
ws.Range("B" & LastRow).Value = Sheets("Add Job").Range("B1") '
ws.Range("A" & LastRow).Value = Sheets("Add Job").Range("B2") '
ws.Range("C" & LastRow).Value = Sheets("Add Job").Range("B3") '
ws.Range("D" & LastRow).Value = Sheets("Add Job").Range("B4") '
ws.Range("E" & LastRow).Value = Sheets("Add Job").Range("B9") '
ws.Range("F" & LastRow).Value = Sheets("Add Job").Range("B10") '
ws.Range("J" & LastRow).Value = Sheets("Add Job").Range("B5") '
ws.Range("K" & LastRow).Value = Sheets("Add Job").Range("B6") '
ws.Range("L" & LastRow).Value = Sheets("Add Job").Range("B7") '
ws.Range("M" & LastRow).Value = Sheets("Add Job").Range("B8") '
ws.Range("N" & LastRow).Value = Sheets("Add Job").Range("B11") '

In Columns G, H and I (on the Job Database) there are formulae, what can I add to the macro above so that the formulae automatically populate when the other information is added.

I have tried converting it into a table and dragging the formula down multiple rows (to try and trigger the AI), needless to say, I wasn't successful.

Regards,

Dan

 

[BarryL]

try:

Sheets("Add Job").Range("B1").Copy ws.Range("G" & LastRow)

[code]
and the same for H & I

 

[shaw600]

Thank you! That worked.

 

[BarryL]

You're welcome