macro to copy special paste on ranges of data

Hi Expert's

Need. A macro to copy and Special paste all (need to retain cell background shading currently applied) into th3 following range sheet abc

range...
1.c99:af111 and ak99:bb111
2. C115:af125 and ak115:bb125
route217Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
MacroShadowConnect With a Mentor Commented:
Sheets("abc").Range("c99:af111").Copy
Sheets("abc").Range("C115:af125").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("abc").Range("ak99:bb111").Copy
Sheets("abc").Range("ak115:bb125").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.