3 rijen toevoegen en waarden kopieren

[hans1974]

hallo,
Weet er iemand hoe je 3 rijen kan toevoegen en de waarden kopieren in de rijen die zijn toegevoegd
zie vb.
in het geel is zoals het zou moeten zijn.

Alvast bedankt voor de hulp

Bekijk bijlage table.xlsm

 

[HSV]

Moet lukken.

Sub hsv()
Dim i As Long
 With Sheets("table")
 For i = .UsedRange.Rows.Count To 1 Step -1
  .Cells(i, 1).Offset(1).Resize(3).EntireRow.Insert
  .Cells(i, 2).Resize(, 24).AutoFill .Cells(i, 2).Resize(4, 24), xlFillCopy
    Next i
  End With
End Sub

 

[hans1974]

bedankt, werkt perfect!