Need addition to Macro Please

[Gavin Holts]

This macro copys cell fom A:H and pastes them to J:Qplus the rows to 6000, I
want to cut I row to R as well some where in the middle of this macro it has
to be added, From Dim i AS Long on deletes out old infomation in the new
pasting, Any Help Please!!!

Cells(1, Cells(1, 256).End(xlToLeft).Column + 1).Select


Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(6000, -9)).Select
Selection.Copy
Range(ActiveCell.Offset(0, 9), ActiveCell.Offset(6000, 17)).Select
ActiveSheet.Paste
ActiveCell.Offset(71, -9).Copy
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteValues

Dim i As Long
With ActiveCell.Offset(86, 0)
For i = 0 To 61
Union(.Offset(i * 72, 3).Resize(1, 5), _
.Offset(i * 72 + 1, 0).Resize(1, 8), _
.Offset(i * 72 + 11, 0).Resize(30, 8)).ClearContents
Next i
End With

--
Thanks Gavin
..
..
..
..

 

[Bob]

Try this Gavin:

Cells(1, Cells(1, 256).End(xlToLeft).Column + 1).Select


Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(6000, -9)).Select
Selection.Copy
Range(ActiveCell.Offset(0, 9), ActiveCell.Offset(6000, 17)).Select
ActiveSheet.Paste
ActiveCell.Offset(71, -9).Copy
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteValues

Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(6000, -1)).Select
Selection.Cut
Range(ActiveCell.Offset(0, 9), ActiveCell.Offset(6000, 9)).Select
ActiveSheet.Paste


Dim i As Long
With ActiveCell.Offset(86, 0)
For i = 0 To 61
Union(.Offset(i * 72, 3).Resize(1, 5), _
.Offset(i * 72 + 1, 0).Resize(1, 8), _
.Offset(i * 72 + 11, 0).Resize(30, 8)).ClearContents
Next i
End With




End Sub



--.
..
..
..