Soru satırın aynısını bir alta ekleme

[sirkülasyon]

Dim son As Integer: son = Sheets("Sayfa2").Range("F" & Rows.Count).End(3).Row + 1: Rows(son).Insert Shift:=xlDown

Kodu alta bir satır ekliyor. B:C sütunu birleştirilmiş L:M ve T:U sütunlarında da formül var.
Rica etsem yukarıdaki satırın aynısını "birleştirilmiş satır ve formüller ile birlikte" satır ekleyen kod için yardımcı olabilir misiniz?
Saygılarımla

 

[YUSUF44]

Şöyle mi istiyorsunuz?


Dim son As Integer: son = Sheets("Sayfa2").Range("F" & Rows.Count).End(3).Row: Rows(son).Copy: Rows(son + 1).Insert Shift:=xlDown


 

[sirkülasyon]

Yusuf Abi tam da aynısı
Ancak kopyalama yapılan yer seçili kalıyor. Onu iptal edebilir miyiz

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Dim son As Integer: son = Sheets("Sayfa2").Range("F" & Rows.Count).End(3).Row: Rows(son).Copy: Rows(son + 1).Insert Shift:=xlDown
Application.CutCopyMode = False


 

[sirkülasyon]

Eyvallah
Teşekkür ederim. Sağ olasın