Soru A Sütununun en altına Genel Toplam satırını bulup satırı bir alt satıra taşımak

[bulentkars]

Merhaba;

Tabloda "A" kolonunun en alt satırında "Genel Toplam" satırını bulup bir satır ekleyip Genel Toplam Satırını bir alta taşımak istiyorum.
Örneğin : "Genel Toplam" satırı "A27" de bir satır ekleyerek "Genel Toplam" satırını "A28" e taşımak ve "D28" satırına da "TOPLAMLAR" yazmak istiyorum.
Yardımcı Olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[AdemCan]

Merhaba,
Sayfa1 yerine işlem yapmak istediğiniz sayfa ismini yazınız.

Sub test()
Dim s1 As Worksheet, aranan As String, bul As Variant, son As Long
Set s1 = Sayfa1: son = s1.Range("A" & Rows.Count).End(3).Row
aranan = "Genel Toplam"
Set bul = s1.Range("A2:A" & son).Find(aranan, LookAt:=xlWhole)

If Not bul Is Nothing Then
    bul = bul.Row
    Rows(bul).Insert Shift:=xlDown
    s1.Range("D" & bul + 1) = "Toplamlar"
End If
End Sub

 

[bulentkars]

Merhaba;

Teşekkür ederim. Elinize Emeğinize sağlık

 

[AdemCan]

Rica ederim.