CatDaddy
06-14-2011, 04:17 PM
trying to paste alternating rows from two different sheets to a new sheet called SheetName:
For i = 5 To 22
copyRow = i & ":" & i
Sheets("Tempe").Select
Rows(copyRow).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(SheetName).Activate
With ActiveSheet
ActiveCell.Offset(1, 0).Select
Selection.Paste
End With
copyRow = (i + 3) & ":" & (i + 3)
Sheets("Atlanta").Select
Rows(copyRow).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(SheetName).Activate
With ActiveSheet
ActiveCell.Offset(1, 0).Select
Selection.Paste
End With
Next i
getting object doesnt support method on the selection.paste line :/
For i = 5 To 22
copyRow = i & ":" & i
Sheets("Tempe").Select
Rows(copyRow).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(SheetName).Activate
With ActiveSheet
ActiveCell.Offset(1, 0).Select
Selection.Paste
End With
copyRow = (i + 3) & ":" & (i + 3)
Sheets("Atlanta").Select
Rows(copyRow).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(SheetName).Activate
With ActiveSheet
ActiveCell.Offset(1, 0).Select
Selection.Paste
End With
Next i
getting object doesnt support method on the selection.paste line :/