This is a little shorter...

With Sheets("Web Sheet")
Sheets("WK1").Range("B2:H8").Copy
.Range("B63").PasteSpecial Paste:=xlPasteValues

Sheets("WK1").Range("B12:H18").Copy
.Range("B73").PasteSpecial Paste:=xlPasteValues

Sheets("WK1").Range("B22:H28").Copy
.Range("B83").PasteSpecial Paste:=xlPasteValues

Sheets("WK1").Range("B32:H38").Copy
.Range("B93").PasteSpecial Paste:=xlPasteValues
End With

--
HTH...

Jim Thomlinson


"Scott" wrote:

How can I simplify this code to a more compressed format?

Sheets("WK1").Select
Range("B2:H8").Select
Selection.Copy
Sheets("Web Sheet").Select
Range("B63").Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("WK1").Select
Range("B12:H18").Select
Selection.Copy
Sheets("Web Sheet").Select
Range("B73").Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("WK1").Select
Range("B22:H28").Select
Selection.Copy
Sheets("Web Sheet").Select
Range("B83").Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("WK1").Select
Range("B32:H38").Select
Selection.Copy
Sheets("Web Sheet").Select
Range("B93").Select
Selection.PasteSpecial Paste:=xlPasteValues