aggingere righe

Sub Pulsante1_Click()
    LR = Cells(Rows.Count, "A").End(xlUp).Row + 1
    n = InputBox("quante famiglie desideri inserire?")
    For i = 1 To n
        m = InputBox("quanti componenti ha la famiglia che stai inserendo?")
        Range("A3:L4").Copy Cells(LR, 1)
        ActiveSheet.Cells(LR, 1) = LR - 4
        ActiveSheet.Cells(LR + 1, 1) = LR - 3
            If m > 2 Then
                LR = LR + 2
                For j = 2 To m - 1
                    Range("A4:F4").Copy Cells(LR, 1)
                    ActiveSheet.Cells(LR, 1) = LR - 4
                    LR = LR + 1
                Next
            m = 0
            End If
        LR = LR + m
    Next
End Sub