Sub FindLastK()
Dim x As Long
Dim y As Long
For x = 1 To Range("K" & Rows.Count).End(xlUp).Row
If Range("K" & x) = "" Then
y = Range("K" & x).Row
Exit For
End If
Next x
MsgBox (y)
End Sub
Sub FindK()
Dim x As Long
x = Range("K" & Rows.Count).End(xlUp).Row
MsgBox (x)
End Sub
Thank you very much I appreciate your time