Thread: Copying a certain number of columns

Hi,

I am having trouble getting my code to take the user selected rows and copy the next 17 columns of these rows. Originally I tried EntireRow.Select but because the rows are not always adjacent this won't let me copy them once I select the entire rows. My code looks like this right now:

    Selection.EntireRow.Select
    Selection.copy
    Windows("7080A CMM Data  Formatted template.xls").Activate
    Sheets(1).Cells(5, 4).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

Thanks!