Evaluate ile yaptım istenirse döngü ile sondan başlatılıp len> 0 diye koşul sağlanıpta son satır buldurulabilinirdi.
J sütununda formül olduğu için farklı çıkıyor normal son satır ile bulunan.
Eğer alttaki kod yavaş çalışırsa k1:k65536 gibi değiştirin ilgili yerleri
Private Sub UserForm_Initialize()
CommandButton1.Caption = "KAY " & Chr(10) & "DET"
CommandButton2.Caption = "Günlük " & Chr(10) & " Yaklaþýk " & Chr(10) & " Maliyet"
Dim son, X As Long
Set s1 = Sheets("DATA")
On Error Resume Next
son = Evaluate("LOOKUP(2,1/(" & s1.Name & "!k:k<>""""),row(" & s1.Name & "!k:k))")
TextBox10.Text = IIf(son < 2, "", s1.Range("K" & son))
son = Evaluate("LOOKUP(2,1/(" & s1.Name & "!j:j<>""""),row(" & s1.Name & "!j:j))")
TextBox8.Text = IIf(son < 2, "", s1.Range("j" & son))
On Error GoTo 0
For X = 2 To 17
If s1.Cells(X, "F") <> "" Then ComboBox1.AddItem s1.Cells(X, "F")
If s1.Cells(X, "D") <> "" Then ComboBox2.AddItem s1.Cells(X, "D")
Next
End Sub