Need your help on this code

Below code only past "B440" once it past in B440 THEN AUTOMATIC SELECT NEXT ROW .... TILL B65000 ROW

Sub Macro5()
'
' Macro5 Macro
'

'
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("A5:A10").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A5:A13").Select
Selection.Copy
ActiveSheet.Previous.Select
Range("B440").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("B205").Select
ActiveSheet.Next.Select
Application.CutCopyMode = False
Rows("5:13").Select
Selection.Delete Shift:=xlUp
Range("A4").Select
End Sub

Im not sure what you are trying to do exactly, perhaps it might be easier if you explained what you want to achieve. Also are the going to be blank cells below B440...

right now we are manually write (exp : B440 cell data past then i am manually write B441) i need automatic paste data in next cell