Buona sera, @Lillo.85;
dopo aver preso buona nota delle Risposte precedenti, come promesso in Risposta #26 della Discussione:
https://www.freeforumzone.com/d/9137622/aggiungere-righe-in-automatico/discussione.aspx
allego un Codice VBA.
Premesso che non vorrei avere male interpretato la tua Richiesta:
... ("SHEETS NUMBER"=15, quindi verranno inserite sotto la riga esistente, altre 14 righe uguali a quella di riferimento contenenti le stesse informazioni da colonna"A" a Colonna "G")
in base alla quale ho inteso che i Record con SHEETS NUMBER = 1 non devono essere duplicati; se ciò è corretto potresti provare con questo Codice VBA:
Option Explicit
Sub Prova()
Application.ScreenUpdating = False
Dim URec As Long, x As Long, y As Long, z As Long
Dim Rec
URec = Range("A" & Rows.Count).End(xlUp).Row
For x = URec To 4 Step -1
If Cells(x, 6) > 1 Then
y = Cells(x, 6)
Cells(x + 1, 1).Select
For z = 1 To y - 1
Range(Cells(x, 1), Cells(x, 7)).Copy
Selection.EntireRow.Insert
Next z
End If
Next x
Application.ScreenUpdating = True
Cells(1, 1).Select
End Sub
A disposizione.
Buona serata.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013