One way:

Public Sub CopyTransposePaste()
Worksheets("PASTE TX HERE").Range("A7:A25").Copy
With Worksheets("Leaver Master")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
End With
End Sub


In article ,
JohnP wrote:

Hi,

I need a macro that will copy a set of vertical data e.g. range A7:A25 from
a sheet called "PASTE TX HERE" and transpose paste it in the next free row
down (starting with row 2 on a sheet called "Leaver Master".

Thanks in advance.

JohnP