Thanks this worked great and seems to be a faster approach. I have decided to
change the source column to another sheet. It is located on Sheet3 A2:60. I
tried to play around with the code to get it to work but I can't get it to
paste with the spaces on Sheet1 starting at AO1. Any additional help would be
greatly appreciated.


"Rick Rothstein (MVP - VB)" wrote:

Instead Copy/PasteSpecial, what about doing it with a simple loop?

Sub Jobs_Across()
Dim X As Long
For X = 2 To 60
Cells(1, 41 + 2 * (X - 2)).Value = Cells(X, "AN").Value
Next
End Sub

If you want to generalize this so you can play around with different skip
values, and source/destination ranges...

Sub Jobs_Across()
Dim X As Long
Const SkipValue As Long = 3
Const SourceStartRow As Long = 2
Const SourceEndRow As Long = 60
Const SourceColumn As Long = 40 ' Column AO
Const DestinationStartRow As Long = 1
Const DestinationColumn As Long = 41 ' Column AN
For X = SourceStartRow To SourceEndRow
Cells(DestinationStartRow, DestinationColumn + SkipValue * _
(X - SourceStartRow)).Value = Cells(X, SourceColumn).Value
Next
End Sub


Rick


"Chance224" wrote in message
...
I recorded a macro that copies a list in column AN2:AN60 and then
transposes
the list into AO1 (across the row). Is there a way to have it paste the
list
in every other cell?
It would paste it Ao1= First value, skip AP1, AQ1= next value, skip
AR1,AS1=next value, etc€¦
Here is the code I have so far:
Sub Jobs_Across()
'
Range("AN2:AN60").Select
Selection.Copy
Range("AO1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

Thanks