Boş satırların sayısını düzenleme

[izcik]

Sub test2()
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        If Not IsNumeric(Cells(i, "A").Value) Then
            sat = sat + 1
            sut = 1
        Else
            sut = sut + 1
        End If
        Cells(sat, sut).Value = Cells(i, "A").Value
    Next i
    Range("A" & sat + 1 & ":A" & Rows.Count).ClearContents
End Sub

Hemen deniyorum uzmanım

Emeklerinize sağlık, sağlıklı günler dilerim.