VBA Insert formatted rows + a copy of itself

I would like to have rows dynamically inserted underneath a formatted row (row 6 for example) based off an inputted value in a cell (F:6). Then a copy of the formatted row would be placed after that so another value can be inserted into the next F:# cell and rows would appear below that, etc.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" And IsNumeric(Target) Then
Rows(7).Resize(Target.Value).Insert
'...
End If
End Sub

(However this code is too hardcoded for my needs)

example : row 6 cell F:6 user puts in a '3' So 3 rows (7,8,9) get put underneath with row 10 being a copy of the original cell. Then in F:10 a user puts 2 so 2 rows are placed underneath, etc....


Can this be done? it would be nice to have some pre formatting applied to those inserted cells. even if what is inserted is a pre-made row from another worksheet.

Any help or direction is greatly appreciated.

Administrative Note:

Welcome to the forum.

Unfortunately, this is a duplicate thread, and you are allowed only ONE thread per issue here.

Please see Forum Rule #5 about thread duplication.

I am closing this thread, but you may continue here in the original thread:https://www.excelforum.com/excel-pro...of-istelf.html