VBA Code

I dont know how but I managed to put together a macro that copies transposed info entered in a column of one sheet to a row in another sheet. The problem is that the copy is made in the first upper row, offseting all rows down,cand I need to have it copy in the last available free row below. Don't know how to solve it, follows copt of the macro.
Sub Traspaso_Info()
'
' Traspaso_Info Macro
' Traspaso info traspuesta de una hoja a otra
'
' Keyboard Shortcut: Ctrl+a
Sheets("INFODE").Select
Range("B1:B14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("INFOA").Select
Range("A2").Select
Selection.PasteSpecial , Transpose:=True
Selection.Insert Shift:=xlDown
End Sub
Thanks!!
Carlos