Dolu olan ilk satır seçimi

[unfors]

Private Sub CommandButton8_Click()
ss = ActiveSheet.Range("A1").End(xlDown).Offset(1).EntireRow
Cells(ss, 1).Select
End Sub

Dolu olan ilk satırdaki ilk hücreyi seçmek istiyorum ama kod hata veriyor sorun nedir?

 

[halit3]

Bu kodu bir dene

Private Sub CommandButton8_Click()
Range("a1").Select
SendKeys ("^{DOWN}"), True
End Sub

veya

Private Sub CommandButton8_Click()

sut = "A"
If WorksheetFunction.CountA(Range(Cells(1, sut), Cells(Rows.Count, sut))) > 0 Then

Else
Exit Sub
End If

Cells(1, sut).Select
SendKeys ("^{DOWN}"), True

End Sub

dolu olan sonraki satır

Sub dolu_olan_sonraki_satir()
atla:
sut = 1 'istenen sutun
If WorksheetFunction.CountA(Range(Cells(1, sut), Cells(Rows.Count, sut))) > 0 Then
Else
Exit Sub
End If

Cells(ActiveWindow.RangeSelection.Row, sut).Select
SendKeys ("^{DOWN}"), True
If Rows.Count = ActiveWindow.RangeSelection.Row Then
Cells(1, sut).Select
GoTo atla
End If

End Sub