Private Sub ShiftEntities_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks("YourBook2.xls")
Range("A1:A50").Copy
Windows("Book2").Activate
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

HTH

Die_Another_Day
Thulasiram wrote:
How to transfer the entities in the columns of one worksheet to rows of
another worksheet in an Excel book?. For example I would like to copy 50
entities in column A of worksheet 1 to row 1 of worksheet 2.

So, for the above question I would like to know the code that should be
written in the VB code editor (for the command button with caption "Shift
Entities").