rfletcher35
Active Member
- Joined
- Jul 20, 2011
- Messages
- 300
- Office Version
- 365
- Platform
- Windows
I have the code below but for some reason it is not printing on the next line down for AC and AD, I can't understand why as I am using the same line of code for another part of my project and it works fine. Can anyone explain?
Range("D5:D69").Select
Selection.Copy
Sheets("Certificate").Range("AC2").PasteSpecial Paste:=xlPasteValues
Range("i5:i69").Select
Selection.Copy
Sheets("Certificate").Range("AC" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Range("E5:E69").Select
Selection.Copy
Sheets("Certificate").Range("AD2").PasteSpecial Paste:=xlPasteValues
Range("J5:J69").Select
Selection.Copy
Sheets("Certificate").Range("AD" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Range("D5:D69").Select
Selection.Copy
Sheets("Certificate").Range("AC2").PasteSpecial Paste:=xlPasteValues
Range("i5:i69").Select
Selection.Copy
Sheets("Certificate").Range("AC" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Range("E5:E69").Select
Selection.Copy
Sheets("Certificate").Range("AD2").PasteSpecial Paste:=xlPasteValues
Range("J5:J69").Select
Selection.Copy
Sheets("Certificate").Range("AD" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues