Sub aggiungi()
LR = Cells(Rows.Count, "F").End(xlUp).Row + 1
n = InputBox("quante famiglie ")
For i = 1 To n
Range("A3:J6").Copy Cells(LR, 1)
LR = LR + 4
Next
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta