Excel.Range.Pas te Special - Transpose not working

[shantanu]

I am trying to convert a macro code to c# that will copy the values of
a column and paste to anather through paste special. Everything is
working fine but the transpose meathod to paste the column value as
row value is not working. Can someone kindly look into the code, if i
am missing something.

C# Code
------------
private void ManipulateXLS()
{
try
{
Excel.Range xlsManip,xlsA,x lsB,xlsC;
_book2 = OpenExcelWorkbo ok(@"C:\PRPTemp .xls");
_sheet2 = (Excel.Workshee t)_book2.Active Sheet;
_sheet2.Select( Type.Missing);
Excel.Worksheet _sheetTemp =
(Excel.Workshee t)_book2.Worksh eets[1];
xlsManip = _sheetTemp.Used Range;
for (int i = 1; i <= xlsManip.Rows.C ount; i++)
{
xlsA = _sheetTemp.get_ Range("A" + i.ToString(),
Type.Missing);
xlsC = _sheetTemp.get_ Range("C" +
i.ToString(),Ty pe.Missing);
if(xlsA.Value!= null)
{
xlsA.Copy(Type. Missing);

xlsC.PasteSpeci al(Excel.XlPast eType.xlPasteAl l,Excel.XlPaste SpecialOperatio n.xlPasteSpecia lOperationNone, Type.Missing,tr ue);
}
}
xlsA =
_sheetTemp.get_ Range("A1",Type .Missing).Entir eColumn;

xlsA.Delete(Exc el.XlDeleteShif tDirection.xlSh iftToLeft);

_sheet2.SaveAs( @"C:
\PRPTemp1.txt", Excel.XlFileFor mat.xlTextWindo ws,Type.Missing ,Type.Missing,T ype.Missing,Typ e.Missing,Type. Missing,Type.Mi ssing,Type.Miss ing);
}
catch(Exception Ex)
{
MessageBox.Show (Ex.Message);
}
}
Macro code
---------------
Sub Test()
'
' Test Macro
' Macro recorded 6/15/2007 by shsen
'

'
Range("A1").Sel ect
ActiveWindow.Sm allScroll Down:=69
Range("A1:A88") .Select
Selection.Copy
ActiveWindow.Sm allScroll Down:=-93
Range("C1").Sel ect
Selection.Paste Special Paste:=xlAll, Operation:=xlNo ne,
SkipBlanks:=Fal se _
, Transpose:=True
Range("B1").Sel ect
ActiveWindow.Sm allScroll Down:=66
Range("B1:B88") .Select
Application.Cut CopyMode = False
Selection.Copy
ActiveWindow.Sm allScroll Down:=-96
Range("C2").Sel ect
Selection.Paste Special Paste:=xlAll, Operation:=xlNo ne,
SkipBlanks:=Fal se _
, Transpose:=True
Columns("A:B"). Select
Application.Cut CopyMode = False
Selection.Delet e Shift:=xlToLeft
Range("C2").Sel ect
End Sub