Rapor Alma dolu hücre

[igultekin2000]

iyi akşamlar, formülle belli aşamaya getirdiğim listede dolu satırları detay çalışma sayfasına raporlamak istiyorum. kullandığım makro

Sub sTok_Bakiye()
On Error Resume Next
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual

Set sl = Sheets("detay"): Set sk = Sheets("rapor")
son = sl.Range("A" & Rows.Count).End(3).Row + 2 'kopyalanacak sayfanın başlangıç satırı
sat = 2
sl.Range("a2:j" & son).ClearContents
For i = 6 To sk.Range("A" & Rows.Count).End(3).Row 'baz alınan sayfanın listelenecek ürün başlangıç satırı
If Val(sk.Cells(i, "K")) > 0 And Val(sk.Cells(i, "L")) > 0 And Val(sk.Cells(i, "M")) > 0 _
And Val(sk.Cells(i, "N")) > 0 Then

Else
sl.Cells(sat, "A") = sk.Cells(i, "A")
sl.Cells(sat, "B") = sk.Cells(i, "B")
sl.Cells(sat, "C") = sk.Cells(i, "E")
sl.Cells(sat, "D") = sk.Cells(i, "F")
sl.Cells(sat, "E") = sk.Cells(i, "K")
sl.Cells(sat, "F") = sk.Cells(i, "L")
sl.Cells(sat, "G") = sk.Cells(i, "M")
sl.Cells(sat, "H") = sk.Cells(i, "N")


sat = sat + 1
End If
Next i
Sheets("detay").Select
Sheets("detay").Range("A2:j1000").Font.Name = "Calibri" 'yazı fontu
Sheets("detay").Select
Sheets("detay").Range("A2:j1000").Font.Size = 10 'yazı tipi boyutu
Sheets("detay").Select  ' konumlanma
Sheets("detay").Select
Range("c:f").NumberFormat = "#,##0.00"
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

End Sub

raporlamak istediğim zaman K-L-M-N ' de değer varsa (sayı veya yazı, bunlar formülle geliyor) onları raporlayıp boş satırları almamak. kullandığım makroda sayfa tamamen roparlanıyor. Makroyu güncelleştirmek istiyorum. teşekkürler. 1.resim verilerin işlenmiş hali, ikinci resim son duruma göre raporlamak istediğimde çıkan tablo veya rapordan sonra K-L-M-N sütunlarında değer olmayan satırları silmek şeklinde bir çözümde sorunumu çözebilir.
Not:İlave sütunla sorun çözüldü.