For next ile silme hatası

[Usyk]

Merhaba arkadaşlar
Aşağıdaki makroyu kendime göre uyarladım.
Sayfa1 B6 dan son dolu K satırına kadar kopyalayıp
Sayfa2 ilk boş B satırından itibaren yapıştırıyoruz
Daha sonra Sayfa1 de kopyaladığımız alanı sildiriyoruz.

Ama Sayfa1 A6 yıda siliyor. Neden anlayamadım. Bakarsanız sevinirim. Teşekkürler.

Sub Aktar()
Dim s1, s2 As Worksheet
Set s1 = Sheets("FÖY")
Set s2 = Sheets("KALICI VERİ SAYFASI")
Dim Son1, Son2 As Long
Son1 = s1.Range("B" & Rows.Count).End(xlUp).Row

For i = 6 To Son1
If s1.Cells(i, "A") <> "" Then
Son2 = s2.Range("B" & Rows.Count).End(xlUp).Row + 1
s1.Range("B" & i & ":K" & i).Copy s2.Cells(Son2, "B")
s1.Rows(i).ClearContents
i = i - 1
End If
Next
MsgBox "Aktarma* işlemi tamamlandı..."
End Sub

 

[programer]

örnek dosya eklerseniz daha hızlı yardımcı olamaya çalışırız.

 

[leumruk]

Merhaba,

For i = 7 To Son1
If s1.Cells(i - 1, "A") <> "" Then
Son2 = s2.Range("B" & Rows.Count).End(xlUp).Row + 1
s1.Range("B" & i - 1 & ":K" & i - 1).Copy s2.Cells(Son2, "B")
s1.Rows(i).ClearContents
End If
Next

 

[Usyk]

Sayın leumruk kopyalamada değil silmede sorun vardı. Çözümü buldum. İlginiz için teşekkür ederim.