Thread: adding row in a worksheet

How can I add a row to a work sheet when I reach the last row in my worksheet? The row has many steps and formulas in it.
I would like to have a new row added when ever a new (reqistration number) col a1 is added.

Hi Genebu

you can modify this worksheet event code to suit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TargetCell As Range, N As Long
    On Error GoTo FormulaFillFail
    If (Not IsNumeric(Target.Value)) Or IsEmpty(Target) Then
        Exit Sub
    End If
    For Each TargetCell In Intersect(ActiveSheet.UsedRange, Target.EntireRow)
        If TargetCell.Value = "" Then
            For N = 1 To TargetCell.Row - 1
                If TargetCell.Offset(-N, 0).HasFormula Then
                    TargetCell.Offset(-N, 0).Copy Destination:=TargetCell.Offset(-N + 1, 0).Resize(N, 1)
                    Exit For
                End If
            Next N
        End If
    Next TargetCell
    Exit Sub
FormulaFillFail:
End Sub

Look at Formatting as a Table