satır kopyalama

[GursoyC]

Merhaba,
aşağıdaki şekilde bir makrom var. Yapmak istediğim sadece bir satırı kopyalayıp yeni açacağım bir satıra yapıştırmak. Ancak kırmızı ile işaretlediğim satırda hata alıyorum. Göremediğim bir şey mi var yardım eder misiniz?

Cells(ActiveCell.Row).Select
           Selection.Copy
           Cells(ActiveCell.Row).Select
   [COLOR="Red"]Selection.Insert Shift:=xlDown[/COLOR]
           Application.CutCopyMode = False
Cells(ActiveCell.Row, "E").Select

 

[Asri]

Merhaba,
aşağıdaki şekilde bir makrom var. Yapmak istediğim sadece bir satırı kopyalayıp yeni açacağım bir satıra yapıştırmak. Ancak kırmızı ile işaretlediğim satırda hata alıyorum. Göremediğim bir şey mi var yardım eder misiniz?

Bu şekilde deneyiniz.

Sub Makro1()
    Rows(ActiveCell.Row).Select
    Selection.Copy
    Rows(ActiveCell.Row).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

 

[GursoyC]

Çok teşekkür ederim sayın Asri. Bu şekilde yapınca oldu.
Saygılar,