Satırı seçme ve hizalama

[karizmax]

Arkadaşlar örnek dosyada gösterildiği gibi bir satırı başka bir satırla aynı hizaya almak istiyorum,
Yardımlarınız için şimdiden tşk ederim

 

[excel03]

merhaba;

Sub SatırAyarla()
t = 3
For i = 3 To t
10:
If Cells(i, 10).Value = "ÖZKAYNAKLAR TOPLAMI" Then
satır = i
Else
i = i + 1
t = t + 1
GoTo 10
End If
Next
c = 3
For i = 3 To c
20:
If Cells(i, 2).Value = "DURAN VARLIKLAR TOPLAMI" Then
Range(Cells(i, 2), Cells(i, 2).Offset(3, 6)).Cut
Cells(satır, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
i = i + 1
c = c + 1
GoTo 20
End If
Next
End Sub

 

[hamitcan]

Bu şekilde deneyin.

Sub KAYDIR()
    O = WorksheetFunction.Match("ÖZKAYNAKLAR TOPLAMI", Columns("J"), 0)
    D = WorksheetFunction.Match("DURAN VARLIKLAR TOPLAMI", Columns("B"), 0)
    Range("B" & D & ":" & "H" & D + 3).Cut Cells(O, "B")
End Sub

 

[karizmax]

Ustalar Allah razı olsun çok teşekker ederim