Macro for new line location

I'm trying to get my macro to go to the next blank line and tell me what the range number is. Example below the next line would be B795 and I want to put that number in A1.

Sub New_Line()
'
' Need to goto next blank line and show me the Range Number,example next blank row would be B796
'

'
    Range("B9").Select
    Selection.End(xlDown).Select
    Range("B795").Select
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub