Hi Claus

Once again, thank you for your assistance.

I ran your code and it worked kind of, but I think it did not work in-part because I did not fully express exactly what I was trying to achieve.

Below is a breakdown of just ( week 1 ) what I am attempting to do, the Step spacing remains the same.

With Sheets("Sheet1")

'Company Trucks
'_________________________________________________ ______________________________

'Copy Date Week .1 - Monday
With Range("B7")
.Copy Destination:=Sheets("Sheet2").Range("A2:A15").Past eValue
End With
'Copy Units
With Range("A9:A22")
.Copy Destination:=Sheets("Sheet2").Range("B2").PasteVal ue
End With
'Copy Data Week .1 - Monday
With Range("B9:F22")
.Copy Destination:=Sheets("Sheet2").Range("C2").PasteVal ue
End With

'Copy Date Week .1 - Tuesday
With Range("G7")
.Copy Destination:=Sheets("Sheet2").Range("A16:A29").Pas teValue
End With
'Copy Units
With Range("A9:A22")
.Copy Destination:=Sheets("Sheet2").Range("B16").PasteVa lue
End With
'Copy Data Week .1 - Tuesday
With Range("G9:K22")
.Copy Destination:=Sheets("Sheet2").Range("C16").PasteVa lue
End With

'Copy Date Week .1 - Wednesday
With Range("L7")
.Copy Destination:=Sheets("Sheet2").Range("A30:A43").Pas teValue
End With
'Copy Units
With Range("A9:A22")
.Copy Destination:=Sheets("Sheet2").Range("B30").PasteVa lue
End With
'Copy Data Week .1 - Wednesday
With Range("L9:P22")
.Copy Destination:=Sheets("Sheet2").Range("C30").PasteVa lue
End With

'Copy Date Week .1 - Thursday
With Range("Q7")
.Copy Destination:=Sheets("Sheet2").Range("A44:A57").Pas teValue
End With
'Copy Units
With Range("A9:A22")
.Copy Destination:=Sheets("Sheet2").Range("B44").PasteVa lue
End With
'Copy Data Week .1 - Thursday
With Range("Q9:P22")
.Copy Destination:=Sheets("Sheet2").Range("C44").PasteVa lue
End With

'Copy Date Week .1 - Friday
With Range("V7")
.Copy Destination:=Sheets("Sheet2").Range("A58:A71").Pas teValue
End With
'Copy Units
With Range("A9:A22")
.Copy Destination:=Sheets("Sheet2").Range("B58").PasteVa lue
End With
'Copy Data Week .1 - Friday
With Range("V9:Z22")
.Copy Destination:=Sheets("Sheet2").Range("C58").PasteVa lue
End With

'Copy Date Week .1 - Saturday
With Range("AA7")
.Copy Destination:=Sheets("Sheet2").Range("A72:A85").Pas teValue
End With
'Copy Units
With Range("A9:A22")
.Copy Destination:=Sheets("Sheet2").Range("B72").PasteVa lue
End With
'Copy Data Week .1 - Saturday
With Range("AA9:AE22")
.Copy Destination:=Sheets("Sheet2").Range("C72").PasteVa lue
End With

'_________________________________________________ _________________________________________

'Sub-contractor Trucks
'_________________________________________________ ______________________________

'Copy Date Week .1 - Monday
With Range("B7")
.Copy Destination:=Sheets("Sheet2").Range("A86:A105").Pa steValue
End With
'Copy Units
With Range("A27:A46")
.Copy Destination:=Sheets("Sheet2").Range("B86").PasteVa lue
End With
'Copy Data Week .1 - Monday
With Range("B27:F46")
.Copy Destination:=Sheets("Sheet2").Range("C86").PasteVa lue
End With

'Copy Date Week .1 - Tuesday
With Range("G7")
.Copy Destination:=Sheets("Sheet2").Range("A106:A125").P asteValue
End With
'Copy Units
With Range("A27:A46")
.Copy Destination:=Sheets("Sheet2").Range("B106").PasteV alue
End With
'Copy Data Week .1 - Tuesday
With Range("G27:K46")
.Copy Destination:=Sheets("Sheet2").Range("C106").PasteV alue
End With

'Copy Date Week .1 - Wednesday
With Range("L7")
.Copy Destination:=Sheets("Sheet2").Range("A126:A145").P asteValue
End With
'Copy Units
With Range("A27:A46")
.Copy Destination:=Sheets("Sheet2").Range("B126").PasteV alue
End With
'Copy Data Week .1 - Wednesday
With Range("L27:P46")
.Copy Destination:=Sheets("Sheet2").Range("C126").PasteV alue
End With

'Copy Date Week .1 - Thursday
With Range("Q7")
.Copy Destination:=Sheets("Sheet2").Range("A146:A165").P asteValue
End With
'Copy Units
With Range("A27:A46")
.Copy Destination:=Sheets("Sheet2").Range("B146").PasteV alue
End With
'Copy Data Week .1 - Thursday
With Range("Q27:P46")
.Copy Destination:=Sheets("Sheet2").Range("C146").PasteV alue
End With

'Copy Date Week .1 - Friday
With Range("V7")
.Copy Destination:=Sheets("Sheet2").Range("A166:A185").P asteValue
End With
'Copy Units
With Range("A27:A46")
.Copy Destination:=Sheets("Sheet2").Range("B166").PasteV alue
End With
'Copy Data Week .1 - Friday
With Range("V27:Z46")
.Copy Destination:=Sheets("Sheet2").Range("C166").PasteV alue
End With

'Copy Date Week .1 - Saturday
With Range("AA7")
.Copy Destination:=Sheets("Sheet2").Range("A186:A205").P asteValue
End With
'Copy Units
With Range("A27:A46")
.Copy Destination:=Sheets("Sheet2").Range("B186").PasteV alue
End With
'Copy Data Week .1 - Saturday
With Range("AA27:AE46")
.Copy Destination:=Sheets("Sheet2").Range("C186").PasteV alue
End With

'_________________________________________________ _________________________________________


End With
End Sub


Once again

Thank you so much for your time.
Cheers
Mark.