Satir Eklemek

[mustafaine1]

Selam arkadaslar, ekteki sheetimin 11 satiri gibi bos bir satir istiyorum satir ekle makrosuyla yalniz ekleyecegim satirin b sutunu ile ae:ao sutunlari arasinda formuller de var onlarinda eklenen sutunda olmasi gerekiyor, yardimci olurmusunuz lutfen..

 

[mustafaine1]

Range("A65536").Select
Selection.End(xlUp).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
End If
Loop

arkadaslar bu sekılde satır eklemeyı basardım yalnız formullerı nasıl yapabılırım ?

 

[mustafaine1]

Dim i As Integer, son As Long, bit As Integer

Range("A65536").Select
Selection.End(xlUp).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Insert

End If
Loop

    With ActiveSheet
    son = .Range("b65536").End(3).Row - 2
    For i = 1 To .Range("IV1").End(1)
    If .Cells(son, i + 1).HasFormula Then
        .Cells(son, i + 1).Copy
        .Cells(son + 1, i + 1).PasteSpecial xlPasteFormulas
    End If
    Next i
    End With
    Application.CutCopyMode = False
    i = Empty: son = Empty
    End Sub

Sorunumu cozdum arkadaslar..