Is this possible?

[CBrausa]

I have information in one row, 39 columns, Sheet 1, I want to copy that info over to Sheet 2, and use 3 rows, 12 columns.
I used EasyFilter to filter my data.
Can & how do I do this?

[L. Howard Kittle]

Hi CBrausa

One way, however I used 13 column to get all 39 entries.

Sub CopyIt()
Range("A1").Resize(1, 13).Copy Sheets("Sheet2"). _
Range("A100").End(xlUp).Offset(1, 0)
Range("A1").Offset(0, 13).Resize(1, 13).Copy _
Sheets("Sheet2").Range("A100").End(xlUp).Offset(1, 0)
Range("A1").Offset(0, 26).Resize(1, 13).Copy _
Sheets("Sheet2").Range("A100").End(xlUp).Offset(1, 0)
End Sub

HTH
Regards,
Howard

"CBrausa" <[email protected]> wrote in
message news:[email protected]...
>
> I have information in one row, 39 columns, Sheet 1, I want to copy that
> info over to Sheet 2, and use 3 rows, 12 columns.
> I used EasyFilter to filter my data.
> Can & how do I do this?
>
>
> --
> CBrausa
> ------------------------------------------------------------------------
> CBrausa's Profile:
> http://www.excelforum.com/member.php...o&userid=24677
> View this thread: http://www.excelforum.com/showthread...hreadid=520333
>

[L. Howard Kittle]

Or if you don't want to start in the second rowon sheet 2, use this:

Sub CopyIt()
Range("A1").Resize(1, 13).Copy Sheets("Sheet2"). _
Range("A100").End(xlUp) '.Offset(1, 0)
Range("A1").Offset(0, 13).Resize(1, 13).Copy _
Sheets("Sheet2").Range("A100").End(xlUp).Offset(1, 0)
Range("A1").Offset(0, 26).Resize(1, 13).Copy _
Sheets("Sheet2").Range("A100").End(xlUp).Offset(1, 0)
End Sub

HTH
Regards,
Howard

"CBrausa" <[email protected]> wrote in
message news:[email protected]...
>
> I have information in one row, 39 columns, Sheet 1, I want to copy that
> info over to Sheet 2, and use 3 rows, 12 columns.
> I used EasyFilter to filter my data.
> Can & how do I do this?
>
>
> --
> CBrausa
> ------------------------------------------------------------------------
> CBrausa's Profile:
> http://www.excelforum.com/member.php...o&userid=24677
> View this thread: http://www.excelforum.com/showthread...hreadid=520333
>