Aktarma makrosu

[aydgur]

İyi tatiller.
Sub bankaaktardeneme()
Dim b
Sheets("DENEME").Select
Range("A2").Select
b = 2
For Each secim In Worksheets("DENEME").Range("M:M")
If secim = "İŞ_TL_TAHSİL" Then
b = Sheets("DENEME").[A65536].End(3).Row + 1
Worksheets("İŞ_TL_TAHSİL").Cells(b, 1) = secim.Offset(0, 1)
Worksheets("İŞ_TL_TAHSİL").Cells(b, 4) = secim.Offset(0, -8)
Worksheets("İŞ_TL_TAHSİL").Cells(b, 6) = secim.Offset(0, -4)
Worksheets("İŞ_TL_TAHSİL").Cells(b, 5) = secim.Offset(0, -10)

End If
Next
End Sub
Yukarıdaki kod ile DENEME" sayfasından "İŞ_TL_TASHİL" sayfasına aktarma yapabiliyorum .Fakat aradaki satırları aktaramıyorum ,boş satırları atlatamıyorum.
Dosya ekte olup yardımlarınızı rica edrim.

TARİH USD EURO KUIR "YATAN
TL" "ÇIKAN
TL" 266.536,30
13.08.16 163.445,06 TL 163.445,06 TL
01.03.17 PET 10791 14.176,00 TL







01.03.17 PET 10791 90,00 TL
1.602.875,01 TL 0,00 TL ÇEK NO VADE FİRMA ŞUBE BANKA KEŞİDECİ 1.617.051,01 TL $1.606.546,40 1.609.744,01 € DURUM YENİ DURUM VALÖR
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 10,00 TL İŞ_TL İŞ_TL_TAHSİL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 0,00 TL İŞ_TL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 30,00 TL İŞ_TL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 40,00 TL İŞ_TL İŞ_TL_TAHSİL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 50,00 TL İŞ_TL İŞ_TL_TAHSİL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 60,00 TL İŞ_TL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 70,00 TL İŞ_TL İŞ_TL_TAHSİL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 80,00 TL İŞ_TL 01.03.17
10.02.17 İŞ_TL_TAHSİL 10791 28.02.2017 PET UŞAK ORGANİZE GARANTİ HAKSA 90,00 TL İŞ_TL İŞ_TL_TAHSİL 01.03.17