Eksiltilen satırın yerine, (veri satırları sonuna) boş satır ilavesi..

[EKREM1661]

Çok değerli arkadaşlar..!
Aşağıda kullandığım makro koduyla, veri kaynağı olarak kullandığım sayfada, imlecin bulunduğu (işi biten) aktif satırı, butonla arşiv sayfasına (son dolu satırın devamına) gönderiyorum.

Buna şu görevi ilave edebilir miyiz?
Aktif satır gönderildikten sonra, bulunduğu veri sayfasında, son dolu satırın devamına da bir boş satır eklesin.. (Yani sayfadan gönderip de eksilttiği satırın yerine (verilerin sonuna) bir boş satır eklesin.

Bunu şunun için düşündüm.. Combobox'a yüklenmiş satırlar var, her aktarılan satır sayısınca eksiliyor.. Bu sorun o şekilde çözülmüş olur..

Private Sub CommandButton4_Click()

Uyarı = MsgBox("Aktif (seçili) satır, bu sayfadan kaldırılıp, Arşiv sayfasına taşınacak..!" & vbCrLf & " " & vbCrLf & "Devam Edilsin mi.?", vbSystemModal + vbInformation + vbYesNo, "SİLİNME UYARISI")
If Uyarı = 6 Then
Else: Exit Sub
End If

Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("MESİREKAYNAK"): Set S2 = Sheets("m-arşivi")

SSat = S2.[B65536].End(3).Row + 1
sat = ActiveCell.Row
Rows(sat & ":" & sat).Copy S2.Range("A" & SSat)
Rows(sat & ":" & sat).Delete Shift:=xlUp
MsgBox ("Seçilen satır Arşiv sayfasına taşınmıştır.!")
S1.Range("A5") = 1
S1.Range("A5").AutoFill Destination:=S1.Range("A5:A" & S1.Range("A5").End(4).Row), Type:=xlFillSeries
S2.Range("A5") = 1
S2.Range("A5").AutoFill Destination:=S2.Range("A5:A" & S2.Range("A5").End(4).Row), Type:=xlFillSeries

End Sub