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