-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy & Paste
54 lines (54 loc) · 1.79 KB
/
Copy & Paste
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub ANIMAX2()
Sheets("##").Select
Range("A2:L13").Select
Selection.Copy
Sheets("TITLE LIST").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub ANIMAX1()
Sheets("##").Select
Range("A14:L19").Select
Selection.Copy
Sheets("TITLE LIST").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub GEM_2()
Sheets("##").Select
Range("A20:L35").Select
Selection.Copy
Sheets("TITLE LIST").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub GEM_1()
Sheets("##").Select
Range("A36:L43").Select
Selection.Copy
Sheets("TITLE LIST").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub ONE_2()
Sheets("##").Select
Range("A44:L55").Select
Selection.Copy
Sheets("TITLE LIST").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub ONE_1()
Sheets("##").Select
Range("A56:L61").Select
Selection.Copy
Sheets("TITLE LIST").Select
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub