Can you help me modify the macro listed below so the range of cells is 90?
The rows go from 10 to 100.

Thanks so much.


"OssieMac" wrote:

Hi Joe,

The following copies everything from row 10 down. Hope my assumption is right.

You need a range to copy but the destination only needs to be the first cell.

Sub movesheet()

With Sheets("Sheet1")
Range(.Cells(10, "B"), Cells(.Rows.Count, "B")).Copy _
Destination:=Sheets("Test").Cells(3, "C")

Range(.Cells(10, "C"), Cells(.Rows.Count, "C")).Copy _
Destination:=Sheets("Test").Cells(3, "G")


Range(.Cells(10, "F"), Cells(.Rows.Count, "F")).Copy _
Destination:=Sheets("Test").Cells(3, "F")
End With

End Sub


Regards,

OssieMac