VBA: Copy & Paste information from another template

[SkywardPalm]

Looking to copy the contents of one sheet that has a filled out template into a new sheet without changing the template (maintaining highlights), and without the formatting. The letters represent identifiers that will have the information pasted to the right of each. Here's the path I am currently taking.. was wondering if there is a more efficient method to do this.

    Dim wksCurrent       As Worksheet            ' Current sheet
    Dim wksPrevious     As Worksheet            ' Previous sheet

    Set wksCurrent = ThisWorkbook.Sheets(1)
    Set wksPrevious = ThisWorkbook.Sheets(3)
        
    wksPrevious.Range("C4:C10").Copy
    wksCurrent.Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    wksPrevious.Range("E4:E10").Copy
    wksCurrent.Range("E4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    wksPrevious.Range("H4:I10").Copy
    wksCurrent.Range("H4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    wksPrevious.Range("K4:L10").Copy
    wksCurrent.Range("K4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Template.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
3
4		A		D			F			L
5		B		E			G			CC:
6							H			CC:
7							I			CC:
8							J
9		C					K
10
11
12
13		M					R
14		N					S
15							T
16							U
17		O	$ -				V
18		P
19		Q
20		W
21
22
23
24
Destination

Cell Formulas
Range	Formula
C17	C17	=L80

For the below section of the template is where a list of sections will be imported, the amount of sections can change so I was also wondering if there were a dynamic way to import that particular row information. (Possibly insert that data and remove excess rows, while maintaining the cell formula above?)

Template.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
30
31		Section List
32		SECT	Description	Notes			Time In	Time Out		Hrs. Worked	Current Template Total	Previous Template Total	Difference
33	First SECTION>>>>									0:00		$ -	$ -
34										0:00		$ -	$ -
35										0:00		$ -	$ -
36										0:00		$ -	$ -
37										0:00		$ -	$ -
38										0:00		$ -	$ -
39										0:00		$ -	$ -
40										0:00		$ -	$ -
41										0:00		$ -	$ -
42										0:00		$ -	$ -
43										0:00		$ -	$ -
44										0:00		$ -	$ -
45										0:00		$ -	$ -
46										0:00		$ -	$ -
47										0:00		$ -	$ -
48										0:00		$ -	$ -
49										0:00		$ -	$ -
50										0:00		$ -	$ -
51										0:00		$ -	$ -
52										0:00		$ -	$ -
53										0:00		$ -	$ -
54										0:00		$ -	$ -
55										0:00		$ -	$ -
56										0:00		$ -	$ -
57										0:00		$ -	$ -
58										0:00		$ -	$ -
59										0:00		$ -	$ -
60										0:00		$ -	$ -
61										0:00		$ -	$ -
62										0:00		$ -	$ -
63										0:00		$ -	$ -
64										0:00		$ -	$ -
65										0:00		$ -	$ -
66										0:00		$ -	$ -
67										0:00		$ -	$ -
68										0:00		$ -	$ -
69										0:00		$ -	$ -
70										0:00		$ -	$ -
71										0:00		$ -	$ -
72										0:00		$ -	$ -
73										0:00		$ -	$ -
74										0:00		$ -	$ -
75										0:00		$ -	$ -
76										0:00		$ -	$ -
77										0:00		$ -	$ -
78										0:00		$ -	$ -
79		**NO NEW SECTIONS AFTER THIS**
80										$ -	$ -	$ -	$ -
Destination

 

[My Aswer Is This]

For your first question here is the way I do copy Paste:
This is for just one of yours.
You should see how it works.
For scripts like this I never use "Set"

Sub My_Way()
'Modified 5/18/2022  4:28:02 PM  EDT

Sheets(1).Range("C4:C10").Copy: Sheets(2).Range("C4").PasteSpecial xlPasteValues

Application.CutCopyMode Mode = False
End Sub

 

[My Aswer Is This]

Modify last line of code to this:
My mistake:
Application.CutCopyMode = False