Hi Consty,
I'm sorry - I first looked at this on my PC which only runs 2003 - when I downloaded to my 2010 - I got the colors. Where are you pasting the away?
Try this:
Sub HomeCopy(): Dim rh As Long, ra As Long, c As Long
c = ActiveSheet.UsedRange.End(xlToRight).Column
Do Until Range("A" & ra + 1) = "": ra = ra + 1: Loop
If ra Mod 2 = 0 Then
rh = Int(ra / 2)
Else: Exit Sub: End If
Range(Cells(1, 1), Cells(rh, c)).Copy
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValues
'where do you want to paste the "Away"????
Range(Cells(rh + 1, 1), Cells(ra, c)).Copy
Sheets("Sheet2").Range("A" & rh + 4).PasteSpecial xlPasteValues
Sheets("Sheet2").Activate
Range("A2").Select
End Sub
Bookmarks