Cleaning up Macros and stringing them together?

JM144 · Jul 11, 2011

I have four macros that I have Written/Copied/Recorded. If I use all four of them in specific ways my task is completed to my specifications. I want to be able to string all four of these together into one seamless macro, however, there are some caveats. The First and third macros only need to be run once, while the second and fourth need to be run a variable number of times. The second macro must be run until it reaches a certain name (the "182" is an index number that is common to the beginning of each evaluation of data, I need to stop at a particular name, not a number) and the fourth runs until it can no longer find any rows with the text "page" in it. Also, the macros are undoubtedly written in an extremely inefficient way. Any help streamlining any or all of these pieces would be greatly appreciated. I have posted the code below.Thanks in advance!

 Sub Reposition()
Range("A1:F10000").Select
Selection.Cut
ActiveWindow.ScrollRow = 3889
ActiveWindow.SmallScroll Down:=507
Application.Goto Reference:="R10001C1"
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Range("A1").Select
End Sub

Sub Cleanup()
ActiveCell.Offset(2, 0).Range("A1").Select
Cells.Find(What:="182", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Application.Goto Reference:="R3000C2"
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, -1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Selection.End(xlDown).Select
End Sub

Sub DeleteBlankRows()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
Range("A1:C5000").Select
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Sub DeletePageData()
Range("A1").Select
Cells.Find(What:="page", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.EntireRow.Delete
End Sub

JM144 · Jul 12, 2011

Awesome guys! You are really making this come together! I know that the second macro is a bear but if you have the time I would really appreciate your insight. I will provide any information that you ask for. I know that it is quite convoluted

This is a crude mock-up but this is somewhat similar to what I am dealing with. I am trying to copy the cell that holds the account holder's name and number to the left of all corresponding category data. This is only part of the process of Sub Cleanup but I thought it might help to see what's going on.

<table width="128" border="0" cellpadding="0" cellspacing="0"><col style="width: 48pt;" width="64" span="2"> <tbody><tr style="height: 15pt;" height="20"> <td colspan="2" style="height: 15pt; width: 96pt;" width="128" height="20">
</td> </tr> <tr style="height: 15pt;" height="20"> <td colspan="2" style="height: 15pt;" height="20"> <table width="376" border="0" cellpadding="0" cellspacing="0"><col style="width: 234pt;" width="312"> <col style="width: 48pt;" width="64"> <tbody><tr style="height: 15pt;" height="20"> <td style="height: 15pt; width: 234pt;" width="312" height="20">Sometimes there is irrelevant data in this cell</td> <td style="width: 48pt;" width="64">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Walker, Jennifer 18200524 Rep. ?????????</td> <td>
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 2</td> <td align="right">156</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 3</td> <td align="right">16</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 4</td> <td align="right">4</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 5</td> <td align="right">6756</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 6</td> <td align="right">123</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 7</td> <td align="right">156</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 8</td> <td align="right">16</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td>
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td>
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Zimmerman, Alex 18200451 Rep. ????????</td> <td>
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 1</td> <td align="right">456</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 2</td> <td align="right">123</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 3</td> <td align="right">456</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 4</td> <td align="right">789</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">Category 5</td> <td align="right">749</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td>Page 57</td> </tr> </tbody></table></td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td>
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td>
</td> </tr> <tr style="height: 15pt;" height="20"> <td colspan="2" style="height: 15pt;" height="20">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td align="right">
</td> </tr> <tr style="height: 15pt;" height="20"> <td style="height: 15pt;" height="20">
</td> <td>
</td> </tr> </tbody></table>

Michael M · Jul 12, 2011

Can you have a look at the 2nd line of my tag and use the HTML maker to post a sample of your data. I'm afraid it's not making any sense at this stage....but I haven't had a strong drink yet !!!

Cindy Ellis · Jul 12, 2011

This doesn't string anything together yet, but I think it does what you stated for the 2nd of the 4 macros.
It uses the original data range to control where it stops, (assuming names are alphabetical), so it may be completely wrong if I've misunderstood your data. So...please use a COPY of your original file for testing this.
If this works as a standalone piece, we can start the combining process.

Code:

Sub Cleanup()
Dim lr As Long, NextDataStart As Long, NextDataEnd As Long, nr As Long, c As Long
Dim DataKey As String
 
lr = Cells(Rows.Count, "C").End(xlUp).Row 'original last row of data, which will control how far the macro goes
NextDataStart = Cells.Find(What:="182", After:=Range("C1"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
While NextDataStart < lr
 
    DataKey = ActiveSheet.Cells(NextDataStart, 3).Value
    NextDataEnd = ActiveSheet.Range("C" & NextDataStart).End(xlDown).Row
 
    nr = Cells(Rows.Count, "C").End(xlUp).Row + 1  'nextrow
    ActiveSheet.Range("C" & NextDataStart & ":D" & NextDataEnd).Cut Destination:=ActiveSheet.Cells(nr, 3)
    For c = nr To nr + (NextDataEnd - NextDataStart)
        Cells(c, 2) = DataKey
    Next c
    Rows(nr).EntireRow.Delete ' this changes the row number of the last data row from the original data, so subtract 1
    lr = lr - 1
    NextDataStart = Cells.Find(What:="182", After:=Range("C" & NextDataStart), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
Wend
End Sub

Hope that helps,
Cindy

JM144 · Jul 12, 2011

Wow! I think I have been left in the dust at this point. Sorry for the delay but us mere mortals have to sleep at some point! Not sure if you will get this but thank you so much for your efforts. I am light years ahead of where I was.

Michael, I'm sorry but you aren't exactly speaking my language. I am happy to try to supply you with a sample but am not sure how to go about it with your specifications. Some clarification would be great.

Cindy, thank you so much. I have looked at your code and unfortunately I can't make heads or tails of it. I am about to head to work for the day and will play around with it to see how it works and will post later this evening to give you an update. I'm afraid at this point by ability to make minor modifications is fairly limited!

Once again, thank you so much. I'll be in touch later.

Cindy Ellis · Jul 12, 2011

I should have commented it better...here's a section-by-section description of what it does, after fixing some silly late-night errors. The updated code follows the explanation.

The first few lines declare the variables (good practice, not required).<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com

ffice

ffice" /><o

></o

>
Everying excep "DataKey" refers to a row number. Variables referring to row numbers should be declared as "Long".<o

></o

>
"DataKey" is my made-up name for the contents of the cell that has the 182 and the name.<o

></o

>

Code:

Sub Cleanup()
Dim lr As Long, NextDataStart As Long, NextDataEnd As Long, nr As Long, c As Long
Dim DataKey As String

Next, we find the last row of data, and locate the beginning of the first "set" of data. <o

></o

>
"NextDataStart" will hold the row number of the cell that contains the first instance of "182". Basically, instead of selecting the cell where it's found, we use ".row" (instead of ".select") at the end to return the row number, which is assigned to the variable to the left of the equals sign. We use "After:=Range("C1")" instead of "After:=ActiveCell" so that we don't have to move the selection or active cell to do what we want to do.<o

></o

>
<o

></o

>
<o

></o

>

Code:

lr = Cells(Rows.Count, "C").End(xlUp).Row 'original last row of data, which will control how far the macro goes
NextDataStart = Cells.Find(What:="182", [COLOR=red]After:=Range("C1")[/COLOR], LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).[COLOR=red]Row[/COLOR]

Next, we start a loop. There are several options for loops in VB. My tendency is to use a While loop, although many of the real experts on this board have reasons for using other types. This one works for me

<o

></o

>
<o

></o

>
This structure tells Excel to stop reiterating the loop if/when we find a "182" that's beyond the end of the original data. (From the rest of your code, it seems that you're moving and rearranging worksheet contents to a location just below where the original data ended. If that's not right, then I misunderstood your original macro). <o

></o

>

Code:

While NextDataStart < lr<o:p></o:p>

Next, we store the info that will get populated to column B for the associated data set, and get the row number of the last data associated with that set. "Cells(NextDataStart,3)" tells excel to get the value from column C of the row where it found "182" (which should be the cell where we found 182). in Range("C" & NextDataStart) we're using that same row number as the starting point for the xlDown.row, but without selecting anything.<o

></o

>

Code:

  DataKey = ActiveSheet.Cells(NextDataStart, 3).Value
  NextDataEnd = ActiveSheet.Range("C" & NextDataStart).End(xlDown).Row<o:p></o:p>

Next, we figure out where to put the data set that we've just identified, then we cut the data from its current location (just data in columns C and D) and paste it to the new location, still in columns C and D:<o

></o

>

Code:

   nr = Cells(Rows.Count, "C").End(xlUp).Row + 1  'nextrow
  ActiveSheet.Range("C" & NextDataStart & ":D" & NextDataEnd).Cut [COLOR=red]Destination:=ActiveSheet.Cells(nr, 3)[/COLOR]<o:p></o:p>

The next loop copies the value of the cell that had the "182" in it to column B for each row of data in the new location:<o

></o

>

Code:

   For c = nr To nr + (NextDataEnd - NextDataStart)
      Cells(c, 2) = DataKey
  Next c<o:p></o:p>

Next, delete the first row of the data set, since it's no longer needed.<o

></o

>

Code:

   Rows(nr).EntireRow.Delete <o:p></o:p>

Finally, find the next location of "182".<o

></o

>

Code:

  NextDataStart = Cells.Find(What:="182", After:=Range("C1"), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
Wend
End Sub<o:p></o:p>

<o

>Updated code:</o

>
<o

>

Code:

</o:p><o:p>Sub Cleanup()</o:p>
<o:p>lr = Cells(Rows.Count, "C").End(xlUp).Row 'original last row of data, which will control how far the macro goes</o:p>
<o:p>NextDataStart = 1
NextDataStart = Cells.Find(What:="182", After:=Range("C1"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row</o:p>
<o:p>While NextDataStart < lr
 
DataKey = ActiveSheet.Cells(NextDataStart, 3).Value</o:p>
<o:p>NextDataEnd = ActiveSheet.Range("C" & NextDataStart).End(xlDown).Row
 
nr = Cells(Rows.Count, "C").End(xlUp).Row + 1 'nextrow
ActiveSheet.Range("C" & NextDataStart & ":D" & NextDataEnd).Cut Destination:=ActiveSheet.Cells(nr, 3)
For c = nr To nr + (NextDataEnd - NextDataStart)
Cells(c, 2) = DataKey
Next c
Rows(nr).EntireRow.Delete</o:p>
<o:p>NextDataStart = Cells.Find(What:="182", After:=Range("C1"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row</o:p>
<o:p>Wend</o:p>
<o:p>End Sub </o:p>
<o:p>

</o

>

JM144 · Jul 12, 2011

Cindy,

Thank you for all your efforts, I really appreciate it. I was unable to utilize this code and will unfortunately have to wait until tomorrow (operational security considerations). I am excited to see how it works! I will keep you posted on how things go. Once again, thank you so much! Your efforts have taught me a lot.

Michael M · Jul 12, 2011

JM
As mentioned earlier, if the code doesn't work / is not what you require, please post a before and after sample of data.
Having said that, I think Cindy has it nailed, so shouldn't be an issue.

JM144 · Jul 13, 2011

C

I have adapted your macro to my particular needs and I have to say that it is almost perfect. I have posted an example along with my explanation of what is going on.

Excel Workbook

A

B

C

D

3

Global Portfolio Statement

4

5

6

Set: ALL ACCTS

7

8

Current

9

Description

Value

Weight

10

----------------------------------------

---------------

--------

11

Managed Assets

12

Flintstone, Fred 18200000 Rep. ???????????

13

Category 1

4567

1.28%

14

Category 2

89494

25.01%

15

Category 3

41564

11.61%

16

Category 4

19477

5.44%

17

Category 6

41979

11.73%

18

Category 7

41694

11.65%

19

Category 9

12696

3.55%

20

Category11

41979

11.73%

21

Category 13

16549

4.62%

22

Category 14

47897

13.38%

23

24

---------------

--------

25

Portfolio Totals

357896

100.00%

26

27

Flintstone, Wilma 18200001 Rep.????????????

28

Category 1

7864

7.55%

29

Category 2

4564

4.38%

30

Category 3

4974

4.77%

Sheet1

Excel Workbook

A

B

C

D

31

Category 4

4511

4.33%

32

Category 6

15697

15.07%

33

Category 8

17944

17.22%

34

Category 9

19944

19.14%

35

Category10

19946

19.14%

36

Category 11

8746

8.39%

37

38

---------------

--------

39

Portfolio Totals

104190

100.00%

40

41

Rubble, Barney 18200002 Rep. ?????????????

42

Category 1

3456

0.43%

43

Category 2

78945

9.85%

44

Category 3

1564

0.20%

45

Category 4

15644

1.95%

46

Category 6

156464

19.52%

47

Category 8

164564

20.53%

48

Category 9

78977

9.85%

49

Category10

15641

1.95%

50

Category 11

19777

2.47%

51

Category 12

64516

8.05%

52

Category 13

156441

19.52%

53

Category 14

45644

5.69%

54

55

---------------

--------

56

Portfolio Totals

801633

100.00%

57

58

Rubble, Betty 18200003 Rep. ??????????

59

Category 1

4564

1.15%

60

Category 2

56469

14.26%

Sheet1

Excel Workbook

A

B

C

D

61

Category 3

15644

3.95%

62

Category 4

48944

12.36%

63

Category 6

46456

11.73%

64

Category 8

15647

3.95%

65

Category 9

78941

19.93%

66

Category 10

15677

3.96%

67

""

Page 2

68

69

Global Portfolio Statement

70

As of 07/06/2011

71

72

Set: ALL ACCTS ON PC (ALL ACCTS ON PC)

73

74

Current

75

Description

Value

Weight

76

----------------------------------------

---------------

--------

77

Managed Assets

78

Rubble, Betty 18200003 Rep. ??????????

79

Category 11

7894

1.99%

80

Category 12

1644

0.42%

81

Category 13

1944

0.49%

82

Category 14

78941

19.93%

83

Category 15

15646

3.95%

84

Category 16

7654

1.93%

85

86

---------------

--------

87

Portfolio Totals

396065

100.00%

88

89

Jetson, George 18200004 Rep. ????????????

90

Category 1

4567

2.52%

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

91

Category 2

15947

8.80%

92

Category 3

15697

8.66%

93

Category 4

7891

4.36%

94

Category 5

5648

3.12%

95

Category 6

15934

8.80%

96

Category 7

58976

32.55%

97

Category 8

15649

8.64%

98

Category 9

15894

8.77%

99

Category 10

8971

4.95%

100

Category 11

15997

8.83%

101

102

---------------

--------

103

Portfolio Totals

181171

100.00%

104

105

Jetson, Jane 18200005 Rep. ?????????

106

Category 3

7564

13.44%

107

Category 4

15697

27.89%

108

Category 5

1564

2.78%

109

Category 6

7894

14.02%

110

Category 7

1647

2.93%

111

Category 9

9461

16.81%

112

Category 10

2445

4.34%

113

Category 11

8769

15.58%

114

Category 13

1247

2.22%

115

116

---------------

--------

117

Portfolio Totals

56288

100.00%

118

119

Jetson, Judy 18200006 Rep. ??????????

120

Category 1

7864

2.52%

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

121

Category 4

4567

1.46%

122

Category 5

4897

1.57%

123

Category 6

78461

25.13%

124

Category 7

78974

25.29%

125

Category 8

15969

5.11%

126

Category 10

51579

16.52%

127

Category 11

48794

15.63%

128

Category 12

15676

5.02%

129

""

Page 3

130

131

Global Portfolio Statement

132

As of 07/06/2011

133

134

Set: ALL ACCTS ON PC (ALL ACCTS ON PC)

135

136

Current

137

Description

Value

Weight

138

----------------------------------------

---------------

--------

139

Managed Assets

140

Jetson, Judy 18200006 Rep. ??????????

141

Category 14

5467

1.75%

142

143

---------------

--------

144

Portfolio Totals

312248

100.00%

145

146

Jetson, Elroy 18200007 Rep. ???????

147

Category 1

7894

3.05%

148

Category 2

456

0.18%

149

Category 3

15698

6.07%

150

Category 4

45697

17.68%

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

151

Category 5

45664

17.67%

152

Category 6

15977

6.18%

153

Category 8

45644

17.66%

154

Category 9

41577

16.09%

155

Category 10

15675

6.07%

156

Category 11

15678

6.07%

157

Category 12

8464

3.28%

158

159

---------------

--------

160

Portfolio Totals

258424

100.00%

161

162

Bunny, Bugs 18200008 Rep. ?????????

163

Category 1

45

0.00%

164

Category 2

4000

0.18%

165

Category 3

3241

0.15%

166

Category 4

786

0.04%

167

Category 6

45

0.00%

168

Category 7

6

0.00%

169

Category 8

63546

2.93%

170

Category 10

156654

7.22%

171

Category 11

45664

2.11%

172

Category 12

45869

2.11%

173

Category 13

478696

22.07%

174

Category 14

456987

21.07%

175

Category 15

456457

21.05%

176

Category 16

456762

21.06%

177

178

---------------

--------

179

Portfolio Totals

2168758

100.00%

180

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

181

Duck, Daffy 18200009 Rep. ??????????

182

Category 1

657

22.08%

183

Category 2

324

10.89%

184

Category 3

54

1.82%

185

Category 4

45

1.51%

186

Category 5

123

4.13%

187

Category 6

756

25.41%

188

Category 7

951

31.97%

189

Category 8

65

2.18%

190

191

---------------

--------

192

Portfolio Totals

2975

100.00%

193

194

""

Page 4

195

196

Global Portfolio Statement

197

As of 07/06/2011

198

199

Set: ALL ACCTS ON PC (ALL ACCTS ON PC)

200

201

Current

202

Description

Value

Weight

203

----------------------------------------

---------------

--------

204

Managed Assets

205

Duck, Donald 18200010 Rep. ??????????

206

Category 1

456

0.70%

207

Category 2

789

1.21%

208

Category 3

321

0.49%

209

Category 4

645

0.99%

210

Category 5

897

1.38%

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

211

Category 8

987

1.52%

212

Category 9

645

0.99%

213

Category 10

126

0.19%

214

Category 11

7564

11.62%

215

Category 12

1657

2.55%

216

Category 13

1598

2.45%

217

Category 14

48962

75.21%

218

Category 15

456

0.70%

219

220

---------------

--------

221

Portfolio Totals

65103

100.00%

222

223

Fudd, Elmer 18200011 Rep. ??????????

224

Category 1

456165

98.87%

225

Category 2

1694

0.37%

226

Category 3

156

0.03%

227

Category 4

156

0.03%

228

Category 5

879

0.19%

229

Category 6

419

0.09%

230

Category 7

16

0.00%

231

Category 9

156

0.03%

232

Category 10

89

0.02%

233

Category 11

156

0.03%

234

Category 12

156

0.03%

235

Category 13

786

0.17%

236

Category 14

321

0.07%

237

Category 15

213

0.05%

238

239

---------------

--------

240

Portfolio Totals

461362

100.00%

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

241

242

Pig, Porky 18200012 Rep. ??????????????

243

Category 1

456

0.06%

244

Category 2

456

0.06%

245

Category 3

156879

21.24%

246

Category 4

789

0.11%

247

Category 5

16

0.00%

248

Category 6

4689

0.63%

249

Category 7

19

0.00%

250

Category 8

564789

76.45%

251

Category 11

4169

0.56%

252

Category 12

6456

0.87%

253

Category 13

14

0.00%

254

255

---------------

256

Portfolio Totals

738732

100.00%

257

258

Managed/Unmanaged Totals

????????

259

260

Unmanaged

261

Johnson, Jeremiah 18200431

262

Category 14

????????

100.00%

263

264

---------------

--------

265

Portfolio Totals

???????

100.00%

266

267

Woodpecker, Woody 18200091

268

Category 12

??????

100.00%

269

270

---------------

--------

Excel 2010 Sheet1

Excel Workbook

A

B

C

D

271

Portfolio Totals

???????

100.00%

272

273

Screwy Squirrel 18200092

274

Category 9

?????????

100.00%

275

276

---------------

--------

277

Portfolio Totals

?????????

100.00%

278

279

Tom & Jerry 18200094

280

Category 11

??????

100.00%

281

282

---------------

--------

283

Portfolio Totals

??????

100.00%

284

285

286

---------------

287

Managed/Unmanaged Totals

????????????

288

289

290

---------------

291

Grand Totals

??????

292

Excel 2010 Sheet1

Excel 2010

This is the best that I could do for the raw data that I'm working with. Ignore the row reference #'s as a column.

[/B]

JM144 · Jul 13, 2011

Disregard all the previous data. I was able to piece things together for the most part. I'm still having difficulties with deleting the "page" rows. The remainder of the macro works beautifully (even if I did butcher your code).

Code:

<!--[if gte mso 9]><xml>  <o:OfficeDocumentSettings>   <o:AllowPNG/>  </o:OfficeDocumentSettings> </xml><![endif]--><!--[if gte mso 9]><xml>  <w:WordDocument>   <w:View>Normal</w:View>   <w:Zoom>0</w:Zoom>   <w:TrackMoves/>   <w:TrackFormatting/>   <w:PunctuationKerning/>   <w:ValidateAgainstSchemas/>   <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>   <w:IgnoreMixedContent>false</w:IgnoreMixedContent>   <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>   <w:DoNotPromoteQF/>   <w:LidThemeOther>EN-US</w:LidThemeOther>   <w:LidThemeAsian>X-NONE</w:LidThemeAsian>   <w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>   <w:Compatibility>    <w:BreakWrappedTables/>    <w:SnapToGridInCell/>    <w:WrapTextWithPunct/>    <w:UseAsianBreakRules/>    <w:DontGrowAutofit/>    <w:SplitPgBreakAndParaMark/>    <w:EnableOpenTypeKerning/>    <w:DontFlipMirrorIndents/>    <w:OverrideTableStyleHps/>   </w:Compatibility>   <m:mathPr>    <m:mathFont m:val="Cambria Math"/>    <m:brkBin m:val="before"/>    <m:brkBinSub m:val="--"/>    <m:smallFrac m:val="off"/>    <m:dispDef/>    <m:lMargin m:val="0"/>    <m:rMargin m:val="0"/>    <m:defJc m:val="centerGroup"/>    <m:wrapIndent m:val="1440"/>    <m:intLim m:val="subSup"/>    <m:naryLim m:val="undOvr"/>   </m:mathPr></w:WordDocument> </xml><![endif]--><!--[if gte mso 9]><xml>  <w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"   DefSemiHidden="true" DefQFormat="false" DefPriority="99"   LatentStyleCount="267">   <w:LsdException Locked="false" Priority="0" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Normal"/>   <w:LsdException Locked="false" Priority="9" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>   <w:LsdException Locked="false" Priority="39" Name="toc 1"/>   <w:LsdException Locked="false" Priority="39" Name="toc 2"/>   <w:LsdException Locked="false" Priority="39" Name="toc 3"/>   <w:LsdException Locked="false" Priority="39" Name="toc 4"/>   <w:LsdException Locked="false" Priority="39" Name="toc 5"/>   <w:LsdException Locked="false" Priority="39" Name="toc 6"/>   <w:LsdException Locked="false" Priority="39" Name="toc 7"/>   <w:LsdException Locked="false" Priority="39" Name="toc 8"/>   <w:LsdException Locked="false" Priority="39" Name="toc 9"/>   <w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>   <w:LsdException Locked="false" Priority="10" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Title"/>   <w:LsdException Locked="false" Priority="0" Name="Default Paragraph Font"/>   <w:LsdException Locked="false" Priority="11" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>   <w:LsdException Locked="false" Priority="22" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Strong"/>   <w:LsdException Locked="false" Priority="20" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>   <w:LsdException Locked="false" Priority="59" SemiHidden="false"    UnhideWhenUsed="false" Name="Table Grid"/>   <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>   <w:LsdException Locked="false" Priority="1" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 1"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 1"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 1"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>   <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>   <w:LsdException Locked="false" Priority="34" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>   <w:LsdException Locked="false" Priority="29" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Quote"/>   <w:LsdException Locked="false" Priority="30" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 1"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 1"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 2"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 2"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 2"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 2"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 2"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 3"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 3"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 3"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 3"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 3"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 4"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 4"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 4"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 4"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 4"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 5"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 5"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 5"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 5"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 5"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 6"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 6"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 6"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 6"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 6"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>   <w:LsdException Locked="false" Priority="19" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>   <w:LsdException Locked="false" Priority="21" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>   <w:LsdException Locked="false" Priority="31" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>   <w:LsdException Locked="false" Priority="32" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>   <w:LsdException Locked="false" Priority="33" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>   <w:LsdException Locked="false" Priority="37" Name="Bibliography"/>   <w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>  </w:LatentStyles> </xml><![endif]--><!--[if gte mso 10]> <style>  /* Style Definitions */  table.MsoNormalTable     {mso-style-name:"Table Normal";     mso-tstyle-rowband-size:0;     mso-tstyle-colband-size:0;     mso-style-noshow:yes;     mso-style-priority:99;     mso-style-parent:"";     mso-padding-alt:0in 5.4pt 0in 5.4pt;     mso-para-margin:0in;     mso-para-margin-bottom:.0001pt;     mso-pagination:widow-orphan;     font-size:10.0pt;     font-family:"Times New Roman","serif";} </style> <![endif]-->  Sub Cleanup()
   
  Dim llr As Long
  llr = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:D" & llr).Cut Destination:=Range("B" & llr + 1) 'will paste one row past the last row
  Range("A1").Select
   
  Dim NextDataStart As Long, NextDataEnd As Long, nr As Long, c As Long, nrr As Long, nrrr As Long, lr As Long
  Dim DataKey As String
  lr = Cells.Find(What:="Unmanaged Assets", After:=Range("A1"), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row 'original last row of data, which will control how far the macro goes
  nrr = Cells(Rows.Count, "A").End(xlUp).Row + 1 'nextrow
  NextDataStart = 1
  NextDataStart = Cells.Find(What:=" 182", After:=Range("A" & nrr), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
  While NextDataStart < lr
   
  DataKey = ActiveSheet.Cells(NextDataStart, 3).Value
  NextDataEnd = ActiveSheet.Range("C" & NextDataStart).End(xlDown).Row
   
  nr = Cells(Rows.Count, "A").End(xlUp).Row + 1 'nextrow
  ActiveSheet.Range("C" & NextDataStart & ":D" & NextDataEnd).Cut Destination:=ActiveSheet.Cells(nr, 2)
  For c = nr To nr + (NextDataEnd - NextDataStart)
  Cells(c, 1) = DataKey
  Next c
  Rows(nr).EntireRow.Delete
  lr = lr - 1
  nrr = Cells(Rows.Count, "A").End(xlUp).Row + 1 'nextrow
  NextDataStart = Cells.Find(What:=" 182", After:=Range("A" & nrr), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
  Wend
  End Sub

I was also wondering if there was some way to be prompted with a dialog box that would receive the raw data file? If you have the time I'd appreciate it. Thank you for all the time that you devoted to this project for me. I've learned a lot!

JM144 · Jul 13, 2011

Disregard all the previous data. I was able to piece things together for the most part. I'm still having difficulties with deleting the "page" rows. The remainder of the macro works beautifully (even if I did butcher your code).

Code:

<!--[if gte mso 9]><xml>  <o:OfficeDocumentSettings>   <o:AllowPNG/>  </o:OfficeDocumentSettings> </xml><![endif]--><!--[if gte mso 9]><xml>  <w:WordDocument>   <w:View>Normal</w:View>   <w:Zoom>0</w:Zoom>   <w:TrackMoves/>   <w:TrackFormatting/>   <w:PunctuationKerning/>   <w:ValidateAgainstSchemas/>   <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>   <w:IgnoreMixedContent>false</w:IgnoreMixedContent>   <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>   <w:DoNotPromoteQF/>   <w:LidThemeOther>EN-US</w:LidThemeOther>   <w:LidThemeAsian>X-NONE</w:LidThemeAsian>   <w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>   <w:Compatibility>    <w:BreakWrappedTables/>    <w:SnapToGridInCell/>    <w:WrapTextWithPunct/>    <w:UseAsianBreakRules/>    <w:DontGrowAutofit/>    <w:SplitPgBreakAndParaMark/>    <w:EnableOpenTypeKerning/>    <w:DontFlipMirrorIndents/>    <w:OverrideTableStyleHps/>   </w:Compatibility>   <m:mathPr>    <m:mathFont m:val="Cambria Math"/>    <m:brkBin m:val="before"/>    <m:brkBinSub m:val="--"/>    <m:smallFrac m:val="off"/>    <m:dispDef/>    <m:lMargin m:val="0"/>    <m:rMargin m:val="0"/>    <m:defJc m:val="centerGroup"/>    <m:wrapIndent m:val="1440"/>    <m:intLim m:val="subSup"/>    <m:naryLim m:val="undOvr"/>   </m:mathPr></w:WordDocument> </xml><![endif]--><!--[if gte mso 9]><xml>  <w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"   DefSemiHidden="true" DefQFormat="false" DefPriority="99"   LatentStyleCount="267">   <w:LsdException Locked="false" Priority="0" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Normal"/>   <w:LsdException Locked="false" Priority="9" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>   <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>   <w:LsdException Locked="false" Priority="39" Name="toc 1"/>   <w:LsdException Locked="false" Priority="39" Name="toc 2"/>   <w:LsdException Locked="false" Priority="39" Name="toc 3"/>   <w:LsdException Locked="false" Priority="39" Name="toc 4"/>   <w:LsdException Locked="false" Priority="39" Name="toc 5"/>   <w:LsdException Locked="false" Priority="39" Name="toc 6"/>   <w:LsdException Locked="false" Priority="39" Name="toc 7"/>   <w:LsdException Locked="false" Priority="39" Name="toc 8"/>   <w:LsdException Locked="false" Priority="39" Name="toc 9"/>   <w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>   <w:LsdException Locked="false" Priority="10" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Title"/>   <w:LsdException Locked="false" Priority="0" Name="Default Paragraph Font"/>   <w:LsdException Locked="false" Priority="11" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>   <w:LsdException Locked="false" Priority="22" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Strong"/>   <w:LsdException Locked="false" Priority="20" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>   <w:LsdException Locked="false" Priority="59" SemiHidden="false"    UnhideWhenUsed="false" Name="Table Grid"/>   <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>   <w:LsdException Locked="false" Priority="1" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 1"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 1"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 1"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>   <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>   <w:LsdException Locked="false" Priority="34" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>   <w:LsdException Locked="false" Priority="29" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Quote"/>   <w:LsdException Locked="false" Priority="30" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 1"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 1"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 2"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 2"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 2"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 2"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 2"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 3"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 3"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 3"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 3"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 3"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 4"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 4"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 4"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 4"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 4"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 5"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 5"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 5"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 5"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 5"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>   <w:LsdException Locked="false" Priority="60" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Shading Accent 6"/>   <w:LsdException Locked="false" Priority="61" SemiHidden="false"    UnhideWhenUsed="false" Name="Light List Accent 6"/>   <w:LsdException Locked="false" Priority="62" SemiHidden="false"    UnhideWhenUsed="false" Name="Light Grid Accent 6"/>   <w:LsdException Locked="false" Priority="63" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>   <w:LsdException Locked="false" Priority="64" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>   <w:LsdException Locked="false" Priority="65" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>   <w:LsdException Locked="false" Priority="66" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>   <w:LsdException Locked="false" Priority="67" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>   <w:LsdException Locked="false" Priority="68" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>   <w:LsdException Locked="false" Priority="69" SemiHidden="false"    UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>   <w:LsdException Locked="false" Priority="70" SemiHidden="false"    UnhideWhenUsed="false" Name="Dark List Accent 6"/>   <w:LsdException Locked="false" Priority="71" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>   <w:LsdException Locked="false" Priority="72" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful List Accent 6"/>   <w:LsdException Locked="false" Priority="73" SemiHidden="false"    UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>   <w:LsdException Locked="false" Priority="19" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>   <w:LsdException Locked="false" Priority="21" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>   <w:LsdException Locked="false" Priority="31" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>   <w:LsdException Locked="false" Priority="32" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>   <w:LsdException Locked="false" Priority="33" SemiHidden="false"    UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>   <w:LsdException Locked="false" Priority="37" Name="Bibliography"/>   <w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>  </w:LatentStyles> </xml><![endif]--><!--[if gte mso 10]> <style>  /* Style Definitions */  table.MsoNormalTable 	{mso-style-name:"Table Normal"; 	mso-tstyle-rowband-size:0; 	mso-tstyle-colband-size:0; 	mso-style-noshow:yes; 	mso-style-priority:99; 	mso-style-parent:""; 	mso-padding-alt:0in 5.4pt 0in 5.4pt; 	mso-para-margin:0in; 	mso-para-margin-bottom:.0001pt; 	mso-pagination:widow-orphan; 	font-size:10.0pt; 	font-family:"Times New Roman","serif";} </style> <![endif]-->  Sub Cleanup()
   
  Dim llr As Long
  llr = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:D" & llr).Cut Destination:=Range("B" & llr + 1) 'will paste one row past the last row
  Range("A1").Select
   
  Dim NextDataStart As Long, NextDataEnd As Long, nr As Long, c As Long, nrr As Long, nrrr As Long, lr As Long
  Dim DataKey As String
  lr = Cells.Find(What:="Unmanaged Assets", After:=Range("A1"), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row 'original last row of data, which will control how far the macro goes
  nrr = Cells(Rows.Count, "A").End(xlUp).Row + 1 'nextrow
  NextDataStart = 1
  NextDataStart = Cells.Find(What:=" 182", After:=Range("A" & nrr), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
  While NextDataStart < lr
   
  DataKey = ActiveSheet.Cells(NextDataStart, 3).Value
  NextDataEnd = ActiveSheet.Range("C" & NextDataStart).End(xlDown).Row
   
  nr = Cells(Rows.Count, "A").End(xlUp).Row + 1 'nextrow
  ActiveSheet.Range("C" & NextDataStart & ":D" & NextDataEnd).Cut Destination:=ActiveSheet.Cells(nr, 2)
  For c = nr To nr + (NextDataEnd - NextDataStart)
  Cells(c, 1) = DataKey
  Next c
  Rows(nr).EntireRow.Delete
  lr = lr - 1
  nrr = Cells(Rows.Count, "A").End(xlUp).Row + 1 'nextrow
  NextDataStart = Cells.Find(What:=" 182", After:=Range("A" & nrr), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
  Wend
  End Sub
  [code/]

I was also wondering if there was some way to be prompted with a dialog box that would receive the raw data file?  If you have the time I'd appreciate it.  Thank you for all the time that you devoted to this project for me. I've learned a lot!

Cleaning up Macros and stringing them together?

JM144

New Member

JM144

New Member

Excel Facts

Michael M

Well-known Member

Cindy Ellis

MrExcel MVP

JM144

New Member

Cindy Ellis

MrExcel MVP

JM144

New Member

Michael M

Well-known Member

JM144

New Member

JM144

New Member

JM144

New Member

Similar threads

Forum statistics

Share this page

Cleaning up Macros and stringing them together?

New Member

New Member

Excel Facts

Well-known Member

MrExcel MVP

New Member

MrExcel MVP

New Member

Well-known Member

New Member

New Member

New Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock