I have nine columns (Columns A to I) filled with formulas. Generally, every time I would enter something in the next blank row available in Columns J and onwards, the formulas would automatically fill down to that row. However, if I want to put information in multiple rows at once (for example, copying and pasting eight rows of information from another workbook into this sheet)...the formulas in columns A to I only fill down one row.

Dim lrow As Long

With Worksheets("Database")
    lrow = .UsedRange.Rows.Count
    .Range("A" & lrow + 1).FormulaR1C1 = .Range("A" & lrow).FormulaR1C1
    .Range("B" & lrow + 1).FormulaR1C1 = .Range("B" & lrow).FormulaR1C1
    .Range("C" & lrow + 1).FormulaR1C1 = .Range("C" & lrow).FormulaR1C1
    .Range("D" & lrow + 1).FormulaR1C1 = .Range("D" & lrow).FormulaR1C1
    .Range("E" & lrow + 1).FormulaR1C1 = .Range("E" & lrow).FormulaR1C1
    .Range("F" & lrow + 1).FormulaR1C1 = .Range("F" & lrow).FormulaR1C1
    .Range("G" & lrow + 1).FormulaR1C1 = .Range("G" & lrow).FormulaR1C1
    .Range("H" & lrow + 1).FormulaR1C1 = .Range("H" & lrow).FormulaR1C1
    .Range("I" & lrow + 1).FormulaR1C1 = .Range("I" & lrow).FormulaR1C1
End With
I only want the formula to fill down if there happens to be data in Columns J onwards (so until a blank row). Is there any way to accomplish this?