Need macro to copy paste from Sheet1 to Sheet2 with condition

Closed
zushi
Posts
1
Registration date
Tuesday May 5, 2015
Status
Member
Last seen
May 5, 2015
- May 5, 2015 at 02:10 AM
Hi Everyone,

Please help to simplify below macro code.

Sub Macro2()

Sheets("Sheet1").Range("A2").Copy Sheets("Sheet2").Range("A2:A21")
Sheets("Sheet1").Range("B2:E21").Copy Sheets("Sheet2").Range("B2")
Sheets("Sheet1").Range("A3").Copy Sheets("Sheet2").Range("A22:A41")
Sheets("Sheet1").Range("B2:E21").Copy Sheets("Sheet2").Range("B22")
Sheets("Sheet1").Range("A4").Copy Sheets("Sheet2").Range("A42:A61")
Sheets("Sheet1").Range("B2:E21").Copy Sheets("Sheet2").Range("B42")
Sheets("Sheet1").Range("A5").Copy Sheets("Sheet2").Range("A62:A81")
Sheets("Sheet1").Range("B2:E21").Copy Sheets("Sheet2").Range("B62")
Sheets("Sheet1").Range("A6").Copy Sheets("Sheet2").Range("A82:A101")
Sheets("Sheet1").Range("B2:E21").Copy Sheets("Sheet2").Range("B82")

End Sub


Advance Big Thank You!