Sub Düğme1_Tıklat() Set s2 = Sheets("Sheet1") son2 = s2.[A65536].End(3).Row For sira = 1 To son2 If Cells(sira, 1).Value = "" Then Rows(sira).Delete End If Next End Sub
