oops,
the
End Sub

is missing

Mike

"Mike H" wrote:

Hi,

This is Sh1 worksheet code and assumes Sh2 is called Sheet2

Sub MoveIt()
Dim SourceColumn As Long
Dim DestinationColumn As Long
Dim LastRow As Long
For SourceColumn = 1 To 7
LastRow = Cells(Rows.Count, SourceColumn).End(xlUp).Row
Range(Cells(2, SourceColumn), Cells(LastRow, SourceColumn)).Copy
Select Case SourceColumn
Case Is = 1
DestinationColumn = 5
Case Is = 2
DestinationColumn = 3
Case Is = 3
DestinationColumn = 11
Case Is = 4
DestinationColumn = 1
Case Is = 5
DestinationColumn = 6
Case Is = 6
DestinationColumn = 8
Case Is = 7
DestinationColumn = 7
End Select
LastRow = Sheets("Sheet2").Cells(Rows.Count, DestinationColumn).End(xlUp).Row
Sheets("Sheet2").Cells(LastRow + 1, DestinationColumn).PasteSpecial
Next

Mike

"John Pierce" wrote:



Sh1 Sh2
A E
B C
C K
D A
E F
F H
G G