It's because you have merged cells (which are the bane of VBA). You need to use:
Code:
Workbooks("PPE.xls").Sheets("Page 1").Range("A12:I12,A16:I16,A20:I20,A24:I24").Copy Destination:=Workbooks("Book2").Sheets("Sheet1").Range("A6")
Note that the Range() property can only take up to 255 characters in the address string.