satır silip kaydırma

[nuclearist]

iyi çalışmalar dostlar;
Aşağıdaki gibi küçük bir kodu çalıştırmak istiyorum
Ancak rows ile başlayan satırda hata veriyor.
yardımcı olabilir misiniz? Teşekkür ederim


Sub silgi()
For n = 3 To 100
Rows("n: n + 1").Select
Selection.Delete Shift:=xlUp
Next n
End Sub

 

[veyselemre]

Sub silgi()
    For n = 3 To 100
        Rows(n & ":" & n + 1).Select
        Selection.Delete Shift:=xlUp
    Next n
End Sub

 

[nuclearist]

çok teşekkür ederim
iyi çalışmalar