Hi, I was just wondering how to shorten the code below, many Thanks
'2a)Copy Work Orders from Monthly to Cumulative
Range(Cells(2, wocol), Cells(monthlastrow, wocol)).Copy _
Destination:=Worksheets("CUMPROP").Range("C" & cumlastrow + 1)
'2b)Copy Specialisms from Monthly to Cumulative
Range(Cells(2, speccol), Cells(monthlastrow, speccol)).Copy _
Destination:=Worksheets("CUMPROP").Range("D" & cumlastrow + 1)
'2c)Copy Customer from Monthly to Cumulative
Range(Cells(2, custidcol), Cells(monthlastrow, custidcol)).Copy _
Destination:=Worksheets("CUMPROP").Range("E" & cumlastrow + 1)
'2d)Copy Description from Monthly to Cumulative
Range(Cells(2, desccol), Cells(monthlastrow, desccol)).Copy _
Destination:=Worksheets("CUMPROP").Range("F" & cumlastrow + 1)
'2e)Copy Billing from Monthly to Cumulative
Range(Cells(2, billcol), Cells(monthlastrow, billcol)).Copy _
Destination:=Worksheets("CUMPROP").Range("G" & cumlastrow + 1)
'2f)Copy PM from Monthly to Cumulative
Range(Cells(2, promancol), Cells(monthlastrow, promancol)).Copy _
Destination:=Worksheets("CUMPROP").Range("H" & cumlastrow + 1)
'2g)Copy Hearby from Monthly to Cumulative
Range(Cells(2, hbcol), Cells(monthlastrow, hbcol)).Copy _
Destination:=Worksheets("CUMPROP").Range("I" & cumlastrow + 1)
'2h)Copy Date proposal from Monthly to Cumulative
Range(Cells(2, dpcol), Cells(monthlastrow, dpcol)).Copy _
Destination:=Worksheets("CUMPROP").Range("J" & cumlastrow + 1)
'2i)Copy Status from Monthly to Cumulative
Range(Cells(2, statcol), Cells(monthlastrow, statcol)).Copy _
Destination:=Worksheets("CUMPROP").Range("K" & cumlastrow + 1)
Bookmarks