Selecting the next available empty cell

[odartey]

Hi All

I am using this simple macro to pick the next empty cell,the challenge is that when there's no data in the cell the macro runs to the end of the row.
I need help please...
This is what i have.
Need help
Thanks in anticipation for a response
Sub Inputss()
'
' Inputss Macro
'

'
Sheets("Input").Select
Range("D14").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End Sub

 

[Deepak]

Pls choose as per need from below .

Option Explicit

Sub Inputss()
Range("B" & Rows.Count).End(xlUp)(2).Select
End Sub

or

Option Explicit

Sub Inputss()
Range("D4").End(xlDown)(2).Select
End Sub

 

[odartey]

Pls choose as per need from below .

Option Explicit

Sub Inputss()
Range("B" & Rows.Count).End(xlUp)(2).Select
End Sub

or

Option Explicit

Sub Inputss()
Range("D4").End(xlDown)(2).Select
End Sub

Pls choose as per need from below .

Option Explicit

Sub Inputss()
Range("B" & Rows.Count).End(xlUp)(2).Select
End Sub

or

Option Explicit

Sub Inputss()
Range("D4").End(xlDown)(2).Select
End Sub

Thanks So much Deepak.
It served my purpose
Thanks once again

 

[odartey]

Thanks So much Deepak.
It served my purpose
Thanks once again

still having problems,no data it runs to the and of the row

 

[odartey]

Brilliant,its working Deepak,i missed some steps. but it is working good.
Thanks

 

[Deepak]

K....Have Fun