Tekrar adedine göre tekrar ettirmek

[el-vis]

Tablodaki adede göre diğer bilgileride takrar ettirmek istiyorum.Teşekkür ederim
Tablo ektedir.

 

[apocalyt]

şunu denermisiniz?

Sub deneme()
Application.ScreenUpdating = False
For x = 2 To [h1000].End(3).Row
x = x + a
a = 0
If Cells(x, "h") > 1 Then

For y = 1 To Cells(x, "h").Value - 1
a = a + 1
Rows(x + 1).Insert
Rows(x).Copy
Rows(x + 1).PasteSpecial
Next y
End If
Next x
Application.ScreenUpdating = True
End Sub

 

[Ömer BARAN]

Sayın apocalyt size bir şey sorabilir miyim acaba?

 

[apocalyt]

tabiki buyrun ?