Copy Rows From Worksheet Into Another Worksheet Same Workbook
Rows 10 - 100 copied:
Sub movesheet()
With Sheets("Sheet1")
..Range("B10:B100").Copy Sheets("Test").Range("C3")
..Range("C10:C100").Copy Sheets("Test").Range("G3")
..Range("F10:F100").Copy Sheets("Test").Range("F3")
End With
End Sub
Mike F
"Joe K." <Joe wrote in message
...
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
|