Simplify this code
Since your Source and destination ranges are spaced the same and consistent
in the number of rows used, you could also use a loop:
Sub CopyData()
Dim i As Integer
With Sheets("Web Sheet")
For i = 0 To 30 Step 10
Sheets("WK1").Range("B" & 2 + i & ":H" & 8 + i).Copy
.Range("B" & 63 + i).PasteSpecial Paste:=xlPasteValues
Next i
End With
End Sub
"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
|