You need to use transpose parameterNot sure if it would work for excel 2003 and earlier versions though Sub AddEntry RangeI11 I13 I15 I21Copy SheetsSheet2RangeA RowsCountEndxlUpOffset1 0PasteSpecial xlPasteValues TransposeTrue ApplicationCutCopyMode False End Sub.
0 Comments
Leave a Reply. |