Yeni satır eklediğimde eklenen satırları görmüyor

[ferhatgurbuz]

Yeni satır eklediğimde eklenen satırları AKTARMA YAPARKEN görmüyor

Aşağıdaki kod ile data sayfasından başka bir sayfaya aktarma yapıyorum. Ama belgeye satır eklediğim zaman eklenen satıralrı aktarırken görmüyor. bu konuda bir yardımcı olursanız sevinirim.





Sub Maasayrıntı()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("Ayrıntı")
Y = 7
For Each Hucre In shD.Range("be11:be329")
If IsError(Hucre) = True Then: GoTo f1
If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
shA.Cells(Y, 3) = shD.Cells(Hucre.Row, 4)
shA.Cells(Y, 4) = shD.Cells(Hucre.Row, 5)
shA.Cells(Y, 5) = shD.Cells(Hucre.Row, 47)
shA.Cells(Y, 6) = shD.Cells(Hucre.Row, 57)
shA.Cells(Y, 7) = shD.Cells(Hucre.Row, 69)
shA.Cells(Y, 8) = shD.Cells(Hucre.Row, 68)
shA.Cells(Y, 9) = shD.Cells(Hucre.Row, 70)
shA.Cells(Y, 10) = shD.Cells(Hucre.Row, 61) + shD.Cells(Hucre.Row, 60) + shD.Cells(Hucre.Row, 71)
shA.Cells(Y, 6) = shD.Cells(Hucre.Row, Hucre.Column)
Y = Y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub