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