If there is nothing in column AJ below the last row  of data you pasted, you
could sue something like this:

Sub AAAA()
Dim NextRow As Long
NextRow& = Range("AJ" & Rows.Count).End(xlUp).Row + 1
Range("F6:F25").Copy
Range("AJ" & NextRow&).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=True
End Sub